17 lines
178 B
Perl
17 lines
178 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("blah\n");
|
|
}
|
|
|