17 lines
193 B
Perl
17 lines
193 B
Perl
#!/usr/bin/perl
|
|
|
|
use warnings;
|
|
use strict;
|
|
|
|
use lib "./";
|
|
use MNU;
|
|
|
|
my $game_str;
|
|
|
|
$game_str = "";
|
|
|
|
while(($game_str = MNU->loop($game_str)) ne "QUIT"){
|
|
# printf("XXXX%s\n", $game_str);
|
|
}
|
|
|