Select Code to Download

open I1, '<:raw', 'zz.pl';;
$d1 = do{ local $/; <I1> };;
...

print unpack 'H*', substr $d2, 0, 100;;
23 21 20 70 65 72 6c 20 2d 73 6c 77 0a 75 73 ...