sub menu
{
      print "Choose\n> ";
      chop ($choose = <STDIN>);
}
if ($choose eq 1)
{
       print "bla";
}