Hi tadman,
First i'd like to thank everyone for their help. I'm reading Networking with Perl and Professional Perl. I'm writing a server & client and have been using IO::Socket. For the script above I figured i'd stick with same approach and use IO::File (I'm used to using open (FILE, $file)). The reason I wrote

while (<$foo>){
   print <$foo>;
}
[download]

is because of the IO:Socket programing

while (<$connection>);
    do...
}
[download]