Select Code to Download

use 5.010;
use warnings;
use autodie;
...
    
    select STDOUT;
}

use File::Slurp;
 
$_ = read_file($ARGV[0] // $0);
...
s/\x0d/<CR>/g, s/\x0a/<LF>/g;
s/((?:<CR>)?<LF>)/$1\n/g; # Add real line breaks
say;