#!/usr/bin/perl -l

use strict;
use MP3::Tag;

my %sl;
opendir R,"."; # we can't use a simple glob here as we need case insensitive
foreach (grep /\.mp3$/i,readdir R) {
	my $m = new MP3::Tag($_);
	$m->get_tags;
	$sl{$m->{ID3v1}{track}} = $m->{ofilename};
}
closedir R;

foreach (sort {$a <=> $b} keys %sl) { print $sl{$_} }

exit 0