Help for this page
#!/usr/bin/perl -w ... print "$DBH\n"; sub retval { return $_[0] }
my $orr || print "or\n"; my $andd && print "and\n";