Select Code to Download

my $oSocket = IO::Socket::INET->new(PeerAddr => $HostName,            
+                                               
...
print  FH $sSend;
while (<FH>) { print $_ };

...
local *FH = $oSocket;
...
};
close (FH);
print $sRet;