Select Code to Download

sub readfile {
    my $OP ;
...
    close FS ;
    return $OP ;
}

sub readlines {
    open FS, $_[0] ;
...
    return (@OP) ;
}