sub cheat {
    my( $cheatfile ) = @_;
    open my($info), '<', $cheatfile or die "Can't open( $cheatfile ): $!";
    while(<$info>){
        print $_;
    }
    close $info;
}