All pastes #344753 Raw Edit

Mine

public text v1 · immutable
·published 2007-02-08 00:12 UTC
rendered paste body
open(F,"$ARGV[0]") or die "Cannot read $ARGV[0]";
  binmode F;
  $o = "bit000";
  while (sysread F,$i, int (1.907349*2**20)) {
    open (G, ">$o") or die "Problem reading: $o";
    binmode G;
    syswrite G,$i,length($i) or die "Problem writing: $o";
    close G or die "Problem closing: $o";
    $o++;
}