use Audio::Wav;open(HD,'</dev/hda');seek(HD,int(rand(19041800192)),1);read(HD,$d,200000+int(rand(505600)));$a=Audio::Wav->new; $n=unpack"H8",$d;$w=$a->write($n,{bits_sample=>16,channels=>2,sample_rate=>44100});$w->write_raw($d);$w->finish;`lame --preset extreme $n $n.mp3; rm $n`;