23 sub increm
     24     { $mid = ($mi + $gap) % 60; }

##</code><code>##


     44     if (open CAC, "+>", "cache.html") {

##</code><code>##


     51     my $filetobecopied = "cache.html.";
     52     my $newfile = "nmapresult.html.";
     53     copy($filetobecopied, $newfile) or die "File cannot be copied.";

##</code><code>##


     40     chdir "$pathofnmap";

     42     chdir "C:/Documents and Settings/Wxp/Documenti/pubz";

##</code><code>##


     55     close NMAP;} else {die "Impossibile aprire Nmap $!\n"}}