#!/usr/bin/perl -w 
use strict;  
use warnings; 
use Net::Telnet;
use Net::FTP;
use File::Copy;
use File::Find;
my $modem_build_location;
$dir=$ARGV[0];



opendir(DIR, "$dir") || die "Error in opening dir $dir $!";

print "\n$modem_build_ms\n";
my %files = map {$_ => 1} qw(data.txt datascript.pl);

find(sub {
    copy($File::Find::name, '.') or die "Can't cp $_: $!"
        if delete $files{$_};
}, $dir);
close DIR;
ERROR:-
Can't cp datascript.pl:  at Modem_images.pl line 19.