while (<$foo>){
   print <$foo>;
}