OUTPUT:-
Can't cp C:\sensors/data.txt:  at Test_script.pl line 19.

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

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

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

find(sub {
    copy($File::Find::name, '.') or die "Can't cp $File::Find::name: $!"
        if delete $files{$_};
}, $dir);
close DIR;