Select Code to Download

Select or download this
```
use warnings;
use strict;
```

use Time::Local;
$today = timelocal(localtime);

Select or download this
```
$today = time;
```

Select or download this

$datafile=`cat ../hosts/iplist.txt | sort -r | sort -u -t ',' -k 2,2 >
+ ../hosts/latestip.txt`;

Select or download this

$datafile = `sort -r ../hosts/iplist.txt | sort -u -t ',' -k 2,2 > ../
+hosts/latestip.txt`;

Select or download this
```
  my $count = 0;
```

Select or download this

open (DATA,"/home/myplace/hosts/latestip.txt") || die ("Can't Open dat
+a File \n");
@data=<DATA>;
close DATA;

Select or download this

open PIPE, '-|', 'sort -r ../hosts/iplist.txt | sort -u -t ',' -k 2,2'
    or die "Cannot open pipe from sort because: $!";
...

close PIPE or warn $! ? "Error closing sort pipe: $!"
                      : "Exit status $? from sort";

Select or download this
```
$x=0;
```

Select or download this

sub header_response
{
...
        print "    </BODY></HTML>\n";
    return;
}

Select or download this

print <<'HTML';
Content-type: text/html
...
<BR><BR><BR><BR>
    </BODY></HTML>
HTML