Select Code to Download

# example from perldoc -f last
LINE: while (<STDIN>) {
    last LINE if /^$/;    # exit when done with header
    #...
}