#!/usr/bin/perl -w
use strict;

my $choice = ""; 

# main program
while ($choice !~ /q/i) {
    $choice = &mainmenu();
  SWITCH: {
      $choice =~ /^1/ && do { &option1(); last SWITCH; };
      $choice =~ /^2/ && do { &option2(); last SWITCH; };
  }
}

# main menu
sub mainmenu {
    my $input = "";
	print "\nUTILITIES\n\n";
    print "Please choose from the following options (or Q to quit):\n\n";
	print "1. Establish PPP Session\n";
    print "2. Logoff\n";
	print "-------------------------\n";
    while () {
	print "\nYour choice --> ";
	chomp($input = <STDIN>);
	if ($input =~ /^\d$/ || $input =~ /^q$/i) {
	    return $input;
	} 
	else {
	    print "Not a choice.  1-2 or Q to quit, please,\n";
		}
    }
}
# connect to PPP session
sub option1 {
	print "Connecting to PPP session\n";
}
# log off session
sub option2 {
	print "Logging off\n";
}