Template for Perl script

#!/usr/bin/perl -w

#

### Subroutine prototypes ###
sub print_err;
sub print_warn;
sub ltrim;
sub rtrim;
sub trim;


### MAIN PROGRAM ###
$DSQUERY = $ENV{'DSQUERY'};
die "ERR : \$DSQUERY is not defined.\n" if (!defined $DSQUERY);
print "\$DSQUERY = $DSQUERY\n";
print "PID = $$\n";
print "Today = " . `date +%d/%m/%Y` . "\n";

my $noargs = @ARGV;
print "Num of args : $noargs\n";

for($i=0; $i<=$#ARGV; $i++) {
print $ARGV[$i] . "\n";
}

print_err("A stupid error");
print_warn("A typical warning");

### Subroutine definitions ###
sub print_err {
my $msg = shift;
print "ERR : $msg\n";
}

sub print_warn {
my $msg = shift;
print "WARN : $msg\n";
}

sub ltrim {
my $string = shift;
$string =~ s/^\s+/s/;
return $string;
}

sub rtrim {
my $string = shift;
$string =~ s/\s+$//;
return $string;
}

sub trim {
my $string = shift;
$string =~ s/^\s+//;
$string =~ s/\s+$//;
return $string;
}