sub err2 {
        #You messed up again...
        print "\n" x 2;
        print " " x 14,
          "Valid Selection Not Entered! Press <Enter> to Continue";
        <>;
        system("clear");
        menu();
}
[download]

and the other sub that gets called in this snippett in case you want to see it.

sub con {
   #Gives the option to connect to different system
        print " " x 34, "Connect To $npa[2]?\n\n";
        print " " x 20, "Press v for VM and s for Switch <Enter> To Ex
+it:";
 
        chomp( $read = <STDIN> );
        if ( $read =~ m/^[sS]/ ) {
                system( "/usr/bin/wmc/talker", $npa[6] );
        }
        if ( $read =~ m/^[vV]/ ) { system( "/usr/bin/telnet", $npa[7])
+ }
        else { &menu }
 
        system("clear");
        menu();
}
[download]

--~~--~~--~~--~~--~~--~~--~~--~~--~~--~~--~~--~~--~~--

perl -e '$a="3567"; $b=hex($a); printf("%2X\n",$a);'