#!/usr/bin/perl

use MPEG::MP3Info;

$scanned = 0;
$total = 0;
while (<STDIN>) {
  
  $total++;
  chop;
  my $file = $_;
  
  my $tag = get_mp3tag($file) or next;

  
  my $info = get_mp3info($file);
  
  print "--Start Track--\n";

  for (keys %$tag) {
    printf "%s => %s\n", $_, $tag->{$_};
  }
  
  for (keys %$info) {
    printf "%s => %s\n", $_, $info->{$_};
}
 
  print "--End Track--\n";
  undef $tag;
  undef $info;
   
  $scanned++;
}

print "\n-----\nTotal Songs: $total\nScanned Songs: $scanned\n-----\n";