--- a/upload.pl	Tue Oct 07 10:58:52 2014 +0200
+++ b/upload.pl	Tue Oct 07 11:22:43 2014 +0200
@@ -65,7 +65,7 @@
         $absolute =~ m|^\Q$base/$DIR\E| or die "invalid path: [$absolute]";
 
         open F, '<', $absolute or die "Can't open '<', '$absolute': $!";
-        print header(-type => mimetype($absolute));
+        print header(-type => mimetype($absolute), -charset => 'UTF-8');
         if (request_method() ~~ [qw(GET POST)]) {
             my ($buf, $res);
             print $buf while $res = read F, $buf, 32 * 2**10;