#!/usr/bin/perl -w
use strict;
use MPEG::MP3Play;
my ($mp3_file)=@ARGV;
print "Going to play $mp3_file...\n";
my $mp3=new MPEG::MP3Play (debug => 'all');
$mp3->open($mp3_file);
$mp3->play;
print "Finished playing $mp3_file\n";