Select Code to Download

#!/usr/bin/perl -w

...
my $zero = (2048000 - $i) x chr(0);

print "$file" . "$zero";

Argument "" isn't numeric in repeat (x) at ./a.pl line 6, <> chunk 1.