open FILE, ">$base";
    binmode FILE;

    while (<$file>) {
        print FILE $_;
	$length += length($_);
    }