#!/usr/local/bin/perl -w








use strict;


use File::Find;


use Data::Dumper;











my $file = "/u90/gvc_archive/ama_recover/chad.lst";


my $startDir = "u90/gvc_archive/ama_recover";


my $destDir = "$startDir/4tych";


my @toget;


my @sourcefiles;





chdir $startDir;





open(FILES,"<$file");





for (<FILES>){


     push(@toget,$_);


}








find(\&pushsources,".");





sub pushsources {


    my $file = $File::Find::name;


    push(@sourcefiles,$file);


}