Select Code to Download

#!/usr/bin/perl -w

...
print "$DBH\n";

sub retval { return $_[0] }

my $orr || print "or\n";
my $andd && print "and\n";