坑爹的是不知道怎么报错。。头疼。。

#!/usr/bin/perl    use strict;    use DBI;    use Net::Ping;    my @oder=();    my $in=DBI->connect("DBI:mysql:database=port_scan;host=localhost","root","") or die "NO :$!";    if($in){      print "OK\n";    }    my $p = Net::Ping->new("syn");    for (my $port=1;$port<65535;$port++){       $p->port_number($port);       for(my $i=1;$i<=255;$i++){         $p->ping('192.168.31.'.$i);       }       while (my ($host,$rtt,$ip) = $p->ack) {    #     if($insert){    #           print "HOST: $host [$ip] port: $port [open]\n";             push(@oder,$host.'|'.$port);    #    }       }       foreach my $key (@oder){          my @tmp=split(/\|/,$key);          my $insert=$in->do("insert into result(ip,port)values('$tmp[0]',$tmp[1])");       }       $in->disconnect();    }