Use one of the modules, for example MP3::Info or AudioFile::MP3. If you want/need pure Perl, you can also decode the information manually, but as every mp3 file consists of many parts, all with their respective header (which makes such hacks as variable bitrate (vbr) possible), that's a tedious thing to do yourself.