Select Code to Download

$VAR1 = '2008-07-26 10.10.10.1 3.3.3.3 80 hxxp://3.3.3.3 200 OK';
$VAR14 = '2008-07-26 192.168.1.32 11122 3.3.3.3 80 hxxp://4.4.4.4 200 
+OK';
$VAR29 = '2008-07-26 1.1.1.1 11122 3.3.3.3 80 hxxp://3.3.3.3 200 OK';

foreach my $line (@lines) {
        $sth->execute($line, $line) or die "Can't execute SQL statemen
+t: $DBI::errstr\n";
...
    
print Dumper ( @sorted );
}