eval {
  main();#;)
  };
   if ($@) {
              die "Problem: $@";
   }