Select Code to Download

#!/usr/bin/perl
use warnings;
...
    s/\/Im0 Do//g;
    print;
}

#!/usr/bin/perl
BEGIN {(*STDERR = *STDOUT) || die;}
...
binmode ARGVOUT if $. == 1;    s/\/Im0 Do//g;    
print;
}