##
open (DATA, "data.txt") || die "Cannot open file. Reason: $!";
@data = ;
close(DATA);
open (LIST, "list.txt") || die "Cannot open list.txt. Reason: $!";
while () {
$found = 0;
foreach $line (@data) {
chomp $line;
if ($line eq $_) { $found = 1; last; }
$found = 0;
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 Browser
