#!/usr/bin/perl -w

undef $/;
my $file = <>;
my $i   = length($file);
my $zero = (2048000 - $i) x chr(0);

print "$file" . "$zero";

##</code><code>##

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