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