Select Code to Download

#!/usr/bin/perl
use File::Copy;
...
foreach $file(@files){
}
closedir (DIR);

#!/usr/bin/perl
use strict;
...
    warn "Failed to open '$source ' for reading ($!)\n";
}

use strict;
use warnings;

use diagnostics;