#!/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";
}
[download]