use MP3::Tag;

$Verzeichnis = '/home/liam';
opendir(DIR, $Verzeichnis) || die "Kann $Verzeichnis nicht oeffnen";
@VerzeichnisInhalt = grep{ $_ =~ /\.mp3$/ }readdir(DIR);
closedir(DIR);


foreach $file (@VerzeichnisInhalt) {  

$mp3 = MP3::Tag->new("$file"); # create object

$mp3->get_tags(); # read tags

if (exists $mp3->{ID3v2}) { # print track information
$artist = $mp3->{ID3v2}->artist;
$title  = $mp3->{ID3v2}->title;
$track  = $mp3->{ID3v2}->track;
}

$eintrag = "$track $artist - $title";

print "$eintrag\n";

}