Select Code to Download

eval {
    # Code that might die
}; if ($@) {
    # Catch area
}

sub foo { return undef; }

my @x = foo();
if (@x) { print "foo() succeeded\n" } else { print "foo() failed\n";

# Create an ID to name hash
my %hash = map { $_->id, $_->name } @Objects;
...

# Create an ID to name hash
my %hash = map { $_->id => $_->name } @Objects;