Select Code to Download

#!/usr/bin/perl

...
    
    close $result->{fh};
}

    my $fh = $result->{fh};
    
    while ( my $line = <$fh> ) {