Select Code to Download

#!perl -l

...

open(my $fh, '<:raw', $0);
print(substr(<$fh>, -2) eq "\r\n" ?'bin':'txt');  # bin