Select Code to Download

$ perl -e '
> sub printVariables
...
mike
##########
$

chomp $line;

... die "Can't open file " . $out_file . "\n$!\n";

... die "Can't open file $out_file\n$!\n";