} else { print "\nAll songs found matches! ^_^ \n";}

 print "Copying Files....\n\n";
 print "0%                  100%\n";

 my $div;
 {use integer; $div=(scalar keys %moves)  / 25 + 1 ;}
 my $i = 0;
 foreach $dir (keys %moves) {
    unless (defined $opt{s}) {dircopy("$dir","$moves{$dir}") or die("\n!: Couldnt copy \"$dir\" : $!\n");}
    print "." if (($i % $div) == 0);
    $i++;
  }