perl -e"$f=-s($ARGV[0]); $n=1+int($ARGV[1]*1024**3)/$f;
system 'copy ' . join'+', $ARGV[0] x $n . ' huge.txt'" sample.txt 1