You do realise that $divide will always be 1 don't you as anything/anything is always going to be 1..... If you want a short fast solution just do:

perl -e 'print "x" x 1000' > outfile.txt
[download]

Substitute the 1000 with whatever number of bytes you want.