lpst/MNU.pm

#!/usr/bin/perl

use warnings;
use strict;

package MNU;

sub prompt(){
    printf("> ");
    my $in;
    $in = <STDIN>;
    chomp $in;
    
    return $in;
}

sub loop(){
    my $in = prompt();

    return 0 unless $in;
    return 0 if $in eq "quit";
    return 1;
}

return 1;