#!C:\Perl\bin\perl -w
use strict;
use File::Slurp;
use Win32::File;
use MP3::ID3v1Tag;

my @Directories=("C:\\MP3Disc1","C:\\MP3Disc2","C:\\MP3Disc3","C:\\MP3Disc4");
my $Dir;
my @Files;
my $File;
my $attr;
my $path;
my $MP3;

foreach $Dir(@Directories){
  @Files=read_dir($Dir);
  foreach $File(@Files){
    $path=$Dir."\\".$File;
    Win32::File::GetAttributes($path,$attr);
    Win32::File::SetAttributes($path,$attr|NORMAL);
    $MP3=new MP3::ID3v1Tag($path);
    my($artist,$title)=split " - ",$File;
    $MP3->set_artist($artist);
    $MP3->set_title($title);
    $MP3->save();
  }
}