Select Code to Download

use strict;
use warnings;
sub main
...

}
main();

use strict;
use warnings;

...
EOT
$path =~ s/\\$//;
printf "%s %s path %s\n", __FILE__, __LINE__, $path;