--- a/upload.pl	Mon Feb 01 11:36:32 2016 +0100
+++ b/upload.pl	Mon Feb 01 15:19:08 2016 +0100
@@ -20,6 +20,9 @@
 #   Alias	/d	    /home/ud/XXX/d/
 # gesetzt werden.
 
+# silence 'WARNING: HOME is not set, using root: /' from BaseDir.pm which is used by File::MimeInfo
+BEGIN { $ENV{HOME} //= '.'; }
+
 use 5.014;
 use strict;
 use warnings;