use IO::Pipe;
my $pipe = IO::Pipe->new();
$pipe->writer(qw(ffmpeg -i pipe:0));
print $pipe $mp3;