#!/usr/bin/perl

use warnings;
use strict;
use File::Copy;
use MP3::Info;

chdir "d:\\music\\new";

my ($artist, $song, $dirname, $wait, $info);

while(glob("*.mp3"))
{
	$info = get_mp3tag($_);
	($artist, $song) = ($info->{ARTIST}, $info->{TITLE});

	next unless $artist and $song;

	$dirname = "..\\" . $artist;
	$dirname =~ s/the//g;
	$dirname =~ s/ /_/g;
	$dirname =~ s/^\s*//g;
	$dirname =~ s/\s*$//g;
	$dirname = lc $dirname;
	
	if(!(-e $dirname and -d $dirname))
	{
		print "Create $dirname folder?";
		mkdir $dirname if <STDIN> =~ /^y/; 
	}
	
	if(-e $dirname and -d $dirname)
	{
		print "moving $artist - $song.mp3 to $dirname folder.\n";
		move($_, "$dirname\\$artist - $song.mp3");
	}

}