--- a/bin/imager.save	Wed Aug 17 17:21:04 2011 +0200
+++ b/bin/imager.save	Fri Aug 19 15:10:12 2011 +0200
@@ -181,7 +181,7 @@
 		}
             }
 
-            print {$out} $buffer;
+            syswrite $out => $buffer;
             close($out);
             rename($out => "$data/$file$ext");
             $index{BLOCKS}[$. - 1] .= " *";