Select Code to Download

#!/usr/bin/perl -w
use strict; # always
...

print "prog   : $prog\n";
print "basedir: $basedir\n";

prog   : /usr/bin/perl
basedir: /usr/bin