--- a/upload.pl	Mon Oct 06 15:00:32 2014 +0200
+++ b/upload.pl	Mon Oct 06 15:17:51 2014 +0200
@@ -124,7 +124,7 @@
           or die "Can't create $dir/$filename: $!\n";
         print {$outfh} <$file>;
 
-        if (my $atfh = new IO::File("|at now + $days days")) {
+        if (not $delete ~~ [qw(d m)]  and my $atfh = new IO::File("|at now + $days days")) {
             print {$atfh}
               "rm -f \"$dir/$filename\"\n",
               "rmdir \"$dir\"\n";