Anonymous

open( $fh, '< /tmp/audiofile1.wav' );
my $tempfile = slurp $fh;
close ( $fh );
open( $fh, '< /tmp/audiofile2.wav' );
$tempfile2 = slurp $fh;
close ( $fh );
open( $fh, '> /tmp/newmergedfile.wav');
$fh->autoflush(1);
print $fh $tempfile;
print $fh $tempfile2;
close ( $fh );