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

# Example script, simmilar to the one I'm writing.. 

menu();
 
sub menu {
 
    my @menu = (
        [ 1 => 'Go' ],
    );
 
    my %call = (
        1 => \&go,
    );
 
   system("clear");
 
   print " ", "$_->[0]. $_->[1]\n" for @menu;
 
   print "Enter Selection:";
    chomp( my $answ = <STDIN> );
    my $sub = $call{$answ} or err();
 
    $sub->();
}
 
sub go {
    # This is where the telnet call gets made.
    system("telnet", "192.168.1.1"); # Currently spawns shell command
    # my $var = `telnet 192.168.1.1' # This will save output to $var
                                     # So I can edit the output.
    system("clear");
    menu();
}
 
sub err {
 
 
     print "Valid Selection Not Entered!\n";
 
     menu();
}