Select Code to Download

my $previous = undef;
while (my $line = <$filehandle>) {
...
    ...; # process $line
    $previous = $line;
}