cheat( "/home/cheatsheets/$prefix.txt" , \*STDOUT );
sub cheat {
    my( $cheatfile, $outhandle ) = @_;
    open my($info), '<', $cheatfile or die "Can't open( $cheatfile ): $!";
    while(<$info>){
        print $outhandle $_;
    }
    close $info;
}