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

##</code><code>##

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

##</code><code>##

sub some_sub {
  my $foo;
  my $bar;
  my $baz;
# ...
  try {
    $foo = SomeClass->new;
  }
# ...
  try {
    $bar = $foo->old;
  }
# ...
  try {
    $baz = $bar->rotten;
  }
# ...
}