sub main {
   use Try::Tiny;
   use CGI;

   print CGI::header;
   try {
      use Foo;
      Foo->new->dosomething;
      print "erfolgreich";
   }
   catch {
      print "fehler: ", $_;
   }
}


package Foo;

# ... 

sub dosomething {
   
   # ...
   die "ooops!";

}