Select Code to Download

# Try and catch using prototypes. (Almost verbatim from perlsub.)

...
} catch {
    /phooey/ and print "unphooey\n";
};

# Nested subroutines.

...
}

print frobnicate_again('foo'), "\n";

my $ip = 127.0.0.1;
printf "%vd\n", $ip;