in reply to slightly OT - How can I calculate the length of an MP3 file

Searching CPAN for MP3 reveals a number of candidates.

For example:

use MP3::Info; my $mp3 = MP3::Info->new( $my_file_name ); print $mp3->time, $mp3->title;