Select Code to Download

>c:\progs\perl560\bin\perl script.pl
open(my $data, '<', $0) or die;
print while <$data>;