use Switch;

$i;
chomp($var=<STDIN>);

switch ($var){
  case(1) { test_func()}
}

print "case: $i\n";



test_func{
  print "\nhello";
}