--- a/upload.pl	Thu Nov 27 14:37:52 2014 +0100
+++ b/upload.pl	Thu Nov 27 14:45:41 2014 +0100
@@ -48,17 +48,20 @@
   or die "Can't mkdir $_: $!\n";
 
 my @footer = (hr,
-      div(
+    div(
         { -align => "right" },
         a(
-            { -href => "https://ssl.schlittermann.de/hg/anon-upload/file/once/" } =>
-                          "Scripting"
+            {
+                -href =>
+                  "https://ssl.schlittermann.de/hg/anon-upload/file/once/"
+            } => "Scripting"
         ),
         " © 2010,2011 ",
         a({ -href => "http://www.schlittermann.de/" } => "Heiko Schlittermann"),
         " © 2014 ",
         a({ -href => "http://www.schlittermann.de/" } => "Matthias Förste")
-      ));
+    )
+);
 
 MAIN: {
 
@@ -220,7 +223,7 @@
       ),
       Tr(td(), td(submit(-value => "Hochladen")),),
       end_table,
-      end_multipart_form, 
+      end_multipart_form,
       @footer,
       end_html;
 }
@@ -251,13 +254,17 @@
     print header(-charset => "UTF-8"),
       start_html(-title => "once"),
       h1 "Download bestätigen";
-      print hr,
-      p <<__;
+    print hr, p <<__;
         Die Datei die Sie herunterladen möchten wird nach Abschluß des
         Downloads gelöscht. Um zu verhindern, daß Virenscanner oder andere
         Programme die diesen Link automatisiert aufrufen die Löschung der Datei
         auslösen bestätigen Sie bitte den Download per Knopfdruck.
 __
-    print start_form, hidden('confirmed', 'yes'), submit(-value => 'Bestätigung'), end_form, @footer, end_html;
+    print start_form,
+        hidden('confirmed', 'yes'),
+        submit(-value => 'Bestätigung'),
+        end_form,
+        @footer,
+        end_html;
     exit 0;
 }