Select Code to Download

cheat( "/home/cheatsheets/$prefix.txt" , \*STDOUT );
sub cheat {
...
    }
    close $info;
}

use File::Copy qw' copy ';
copy( "/home/cheatsheets/$prefix.txt" , \*STDOUT  );