#!/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); }