Select Code to Download

#!/usr/bin/perl

...
    print "At $_.\n";
    if ( $_ == 4 ) { tear_us_outta_here(); }
}

At 1.
At 2.
...
At 4.
Getting out of loop labeled FOO.
Exiting subroutine via last at ./foo.pl line 8.