Select Code to Download

use strict;

...
$\ = "\n";         # output record separator
open my $FH, "<", \$var or die;
print while <$FH>;