Select Code to Download

use IO::Socket;

...
    print FILE $_;
}
close FILE;

use IO::Socket;

...
    print $server $_;
}
close FILE;