#!/usr/bin/perl
use strict;
use warnings;

use MP3::M3U::Parser;
# use Data::Dumper;

print "Read MP3 Test file \n";

my $parser = MP3::M3U::Parser->new(-seconds => 'mm:ss');

$parser->parse("/home/rgammon51/Documents/Playlist.m3u")->export (-overwrite => 1);

my $result = $parser->result;
my %info = $parser->info;

printf "Number of Songs in this list :: %s\n ", $info{songs};
printf "Total Time to play all songs :: %s\n ", $info{ttime};
printf "Average Time of all songs    :: %s\n ", $info{average};