Select Code to Download

    if( $_ eq "--end foo--\n"){
    # . . .
    }

my $interesting_bit;
{
    # maybe open here . . .
...
    $interesting_bit = <FILE>;
    # . . . and close here
}

my $interesting_bit;
{
    # maybe open here . . .
...
    }
    # . . . and close
}