package CmdLine; 
 
use Term::Menu; 
 
sub menufy { 
	my $menu=new Term::Menu; 
	START: 
	while (1) { 
		my $answer=$menu->menu( 
			Add => ["Add an entry", 'a'], 
			Exit => ["Exit", 'e']	 
		); 
		if ($answer eq 'Add') { 
			print "Adding...\n"; 
		} 
		elsif ($answer eq 'Exit') { 
			goto START; 
		} 
		else { 
			print "Error adding entry\n"; 
		} 
	} 
} 
return 1;

elsif ($answer eq 'Exit') {  
			exit;  
		}