##
open (DATA, data.txt) || die Cannot open file. Reason: $!;
@data = DATA;
close(DATA);
open (LIST, list.txt) || die Cannot open list.txt. Reason: $!;
while (LIST) {
$found = 0;
foreach $line (@data) {
chomp $line;
if ($line eq $_) { $found = 1; last; }
$found =
Hi,
I've a small script intended for file transfer from a windows machine to
a remote linux server. To implement that, I decided to use two module
i.e File::Basename, File::Copy and CGI.pm.
The File::Copy is working well locally, but it fails to copy files to a
remote machine through the