my $music_dir = shift || "d:/music/new";
chdir $music_dir;