Help for this page

Select Code to Download


  1. or download this
    use strict;
use File::Basename;
...
/proj/home/me/asdf.pl
asdf1.pl
foo/asdf.pl
  2. or download this
    use strict;
use FindBin;

print "I am in '$FindBin::Bin'.";