Select Code to Download

#!/usr/bin/perl -n
use warnings;
...
BEGIN { tie $ARGV, 'File::ShowName' }

print;