while ($client = $server->accept()) {               
  $receivefile = $receivepath . $timestamp . ".ORD";
  push(@files, $receivefile);
  open FILE, $receivefile or die "Can't open: $!";
 
  while (<$client>) {                               
    print FILE $_;                                  
  }
  close FILE;
  $timestamp = $timestamp + 1;
  
  foreach $file (@files) {
    print "$file received";
  }
}