perl -e "$mst_dir = 'C:/Users/Owner/Music/Album'; $count = 0; opendir $DIR, $mst_dir;while($dirname=readdir($DIR)){ opendir $DIR2, $mst_dir.'/'.$dirname; while($filename = readdir($DIR2)){ $count++ if($filename =~ /.mp3/); } closedir($DIR2…