#!/usr/bin/perl -w
use strict;
use MP3::ID3v1Tag;

opendir(DIR, "H:\\test") || die "Unable to open directory: $!";
my @file_names = readdir(DIR);
closedir(DIR);

my ($title, $artist, $mp3_file);

foreach my $file (@file_names) {
    $mp3_file = new MP3::ID3v1Tag("$file");
    $title = $mp3_file->get_title();
    $artist = $mp3_file ->get_artist();

    print "$title - artist\n";
}

and I get this error......

Can't open .: Permission denied at d:/Perl/site/lib/MP3/ID3vTag.pl line 83
Can't call method "get_title" on an undefined value at rename.pl line 57