Select Code to Download

use strict;
use vars qw/ $lines $blah1 $blah2 $blah3 /;

...
    }
    close (FILE);
}

sub breakup_lines {
    open(FILE, "filename");
    while(<FILE>) {
...
    }
    close (FILE);
}