sub delfiles {
  for my $path (@files) {
    unlink $file;
  }
}