Help for this page

Select Code to Download

Select or download this

foreach my $filename ( readdir( DIR ) )
                {
...
               unlink "$scan_dir\\$filename" or print ERROR "can't unl
+ink $scan_dir\\$filename $!";
           }
            }

Select or download this

sub Socket    {
    my ($variable, $sock)=@_;
...
    $sock->send($msg );
        return ("TRUE");
}