#!/usr/bin/perl

use MPEG::MP3Info;

my $file = shift;
  
my $tag = get_mp3tag($file);

my $info = get_mp3info($file);
  


for (keys %$tag) {
  printf " { %s  {%s} } ", $_, $tag->{$_};
}
  
for (keys %$info) {
  printf " { %s  {%s} } ", $_, $info->{$_};
}