# file consisting of 50 0s
perl -le 'foreach my $i ( 1 .. 50 ) { print q{0}; }' > file_0.txt