use experimental 'refaliasing';
\my %info = get_mp3info($file);
for my $key (keys %info) {
	print "$key / $info{$key}\n";
}