#!/usr/bin/perl

use 5.010;
use warnings; 
use strict; 

printf (" #############################\n"); 
printf (" ########## TEST MENU ########\n"); 
printf (" #############################\n");  

sleep(2);

$SIG{INT} = 'IGNORE';

while(1) 

{ printf ("WHAT DO YOU WANT TO DO\n");
printf (" * * * * *\n"); 
printf (" 1- Option\n"); 
printf (" 2- Option\n"); 
printf (" 5-Exit \n"); 
printf (" * * * * *\n");

my $choose = <STDIN>; 
chomp($choose);
 
if($choose eq 1)      { option->client; 
} elsif($choose eq 2) { option2();  
} elsif($choose eq 5) { printf("Good Bye :-)\n");
sleep(2); 
exit(1);
}; 
};