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

for(1...262)
{
   print $_;
   my $dir = "/media/second/testdisk/linux/recup_dir.$_"; 
   print $dir;
   chdir($dir);
   
   my @mp3s = glob "*.mp3";
   
   for(@mp3s) 
   {
     my $music = "/home/zack/music/$_";
     copy($_, $music);
   }
}