#!/usr/bin/perl -w
#mp3Finder.pl
use strict;
use warnings;
use File::Copy;

foreach my $dirnum (1 .. 262)
{
   print $dirnum;
   my $dir = "/media/second/testdisk/linux/recup_dir.$dirnum"; 
   print $dir;
   chdir($dir) or die "Can't chdir($dir): $!";
   
   my @mp3s = glob "*.mp3";
   
   foreach my $mp3 (@mp3s) 
   {
     my $music = "/home/zack/music/$mp3";
     copy($mp3, $music) or die "Can't copy $mp3 to $music: $!";
   }
}