perl -e"BEGIN{$/=\2**21;binmode STDIN; $n=0}" 
    -ne"open my $fh,'>:raw', $ARGV.'.'.$n++; print $fh $_;" filename