Как считать изменить и выкикуть обратно бинарный файл?

[chouck]

Прям не знаю что делать!
Пробовал так
-------------------------------------
 open(PARSEFILE, "<187.mp3");
 binmode (PARSEFILE,":raw" );
 my $to_do_file=;
Считывает только первые 416 байт
-------------------------------------
Пробовал так
-------------------------------------
 sysopen(BINDAT, "187.mp3", O_RDONLY | O_BINARY)  || die "can\'t open records.data: $!";
 sysopen(FH, "188.mp3", O_RDWR | O_CREAT) || die "can\'t open records.data: $!";
 while (sysread(BINDAT, $buf, 1024)) {
        syswrite(FH, $buf, length($buf));
    }
------------------------------------------
Вообще ничего не происходит.

[Haze]

Прям не знаю что делать!
Пробовал так
-------------------------------------
 open(PARSEFILE, "<187.mp3");
 binmode (PARSEFILE,":raw" );
 my $to_do_file=;
Считывает только первые 416 байт
-------------------------------------
Пробовал так
-------------------------------------
 sysopen(BINDAT, "187.mp3", O_RDONLY | O_BINARY)  || die "can\'t open records.data: $!";
 sysopen(FH, "188.mp3", O_RDWR | O_CREAT) || die "can\'t open records.data: $!";
 while (sysread(BINDAT, $buf, 1024)) {
        syswrite(FH, $buf, length($buf));
    }
------------------------------------------
Вообще ничего не происходит.
 

Попробуй так:

 open(PARSEFILE, "<187.mp3");
 binmode (PARSEFILE,":raw" );
 undef $/;
 my $to_do_file=;