or download this
#!/usr/bin/perl
use warnings;
...
foreach my $row (@$all) {
my ($id, $Track, $Title, $Artist, $Album, $Year, $Genre, $Path) = @$ro
+w;
print "\nid: $id\nTrack: $Track\nTitle: $Title\nArtist: $Artist\nAlbum
+: $Album\nYear: $Year\nGenre: $Genre\nPath: $Path\n";