Select Code to Download

#!/usr/bin/perl -w
use strict;
...
print FILE "$line";
print "Thank you!\n";
close(FILE);

$_=$,=q,\,@4O,,s,^$,$\,,s,s,^,b9,s,
$_^=q,$\^-]!,,print