Select Code to Download

my $result = try {
  SomeClass->new
} catch {
  warn
};

my $result;
try {
...
} catch {
  warn
};

sub some_sub {
  my $foo;
...
  }
# ...
}