chomp(my $string = <STDIN> ); 
           
if ($commands{$string}) {
	$commands{$string}->(); 
} else { 
	print "No such command: $string\n"; 
}