diff -r 0ce1c1c38edd -r 2689c9f5f5c5 once.pl
--- a/once.pl	Fri Dec 25 22:29:36 2015 +0100
+++ b/once.pl	Fri Dec 25 22:29:55 2015 +0100
@@ -64,14 +64,13 @@
 # FIXME: Should we allow the current directory as an alternative?
 
 die "Environment ONCE_VAR needs to be defined\n"
-    if not defined $ENV{ONCE_VAR};
-my $ONCE_VAR = untaint($ENV{ONCE_VAR}, qr((^/.*)));;
+  if not defined $ENV{ONCE_VAR};
+my $ONCE_VAR = untaint($ENV{ONCE_VAR}, qr((^/.*)));
 
 exit main() if not caller;
 
 sub main {
 
-
     # Handle the UPLOAD / VIEW request
     # per view (user) we have an own directory
 
@@ -172,7 +171,7 @@
 
     if (length(my $file = param('upload'))) {
         my $upload_fh = upload('upload');
-        my $uuid = gen_uuid();
+        my $uuid      = gen_uuid();
         my ($delete, $expires, $days) = do {
             my ($d, $e);
             my $days = param('expires') // 0;
@@ -199,7 +198,7 @@
         make_path($dir);
         {
             my $outfh = new IO::File "$dir/$filename", 'w'
-                or die "Can't create $dir/$filename: $!\n";
+              or die "Can't create $dir/$filename: $!\n";
             print {$outfh} <$upload_fh>;
         }
 
@@ -342,8 +341,8 @@
 sub untaint {
     my ($_, $rx) = (@_, qr((\w+)));
     /$rx/;
-    die sprintf("%s:%s:%d: untaint('%s', %s): not defined\n",  caller, $_, $rx)
-        if not defined $1;
+    die sprintf("%s:%s:%d: untaint('%s', %s): not defined\n", caller, $_, $rx)
+      if not defined $1;
     return $1;
 }