Select Code to Download

BEGIN{($path = $0) =~ s[[\\/][^\\/]+$][];}
BEGIN{ use lib $path;}

>cat tmp.pl
#!/usr/bin/perl
use strict;
...
>tmp.pl
./tmp.pl
>