use strict;
use warnings;
use MP3::Tag;

my $Verzeichnis = '/home/liam';
opendir my $dh, $Verzeichnis or die "Kann $Verzeichnis nicht oeffnen: $!";
my @VerzeichnisInhalt = grep { m/\.mp3$/ } readdir $dh;
closedir $dh;


foreach my $file (@VerzeichnisInhalt) {  
    my $mp3 = MP3::Tag->new("$Verzeichnis/$file"); # create object

    $mp3->get_tags(); # read tags
    my ($artist, $title, $track);
    if (exists $mp3->{ID3v2}) { # print track information
        $artist = $mp3->{ID3v2}->artist;
        $title  = $mp3->{ID3v2}->title;
        $track  = $mp3->{ID3v2}->track;
    }

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

    print "$eintrag\n";

}