while(<IN>){
   ...
  copy(<IN>,$dest);
   ...
}