diff -r 27622a0a492e -r aebcf858b3b0 upload.pl --- 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";