...
        my ($title, $track, $artist);
        {
          my $mp3 = MP3::Tag->new($curfile)
              or die "Didn't get an mp3 tag from '$curfile'";
          ($title, $track, $artist) = $mp3->autoinfo(); 
        };
        ...