Help for this page
foreach my $filename ( readdir( DIR ) ) { ... unlink "$scan_dir\\$filename" or print ERROR "can't unl +ink $scan_dir\\$filename $!"; } }
sub Socket { my ($variable, $sock)=@_; ... $sock->send($msg ); return ("TRUE"); }