Select Code to Download

    print "removing $_\n"; 
    unlink;

  print "removing $_: ";
  print unlink $_ ? "$!\n" : "ok\n";