#!/usr/bin/perl -w

while(1) {

    open(DOORS, "doors.ans");
    while(<DOORS>) {
	print;
    }
    close(DOORS);
    
    print "\nEnter Command -> ";
    chomp($command = <STDIN>);
    
    if ($command eq 'A' || $command eq 'a') { system('/usr/games/./atc'); }
    if ($command eq '+' || $command eq '+') { system('man atc'); }
 
if ($command eq 'H' || $command eq 'h') { system('/usr/games/./hangman'); }
if ($command eq 'b' || $command eq 'B') { exit; }

}
