Select Code to Download

#! perl -slw
use strict;
...
    my $client = $lst->accept;
    print $client $fname;
}

#! perl -slw
use strict;
...
    close $svr;
    ## Process $fname.
}