local @ARGV = ('deletefiles.txt'); unlink or warn "$_: $!\n" for <>;