sub delfiles {
  my $count = unlink @files;
  print "number of files deleted: $count\n";
}