use DBI; my ($dns) = "DBI:mysql:xxx:xxx"; my ($username) = "xxxx"; my ($password) = "xxx"; my ($dbh, $sth); my (@ary); my $dbfile = "spider.dat"; my $outfile = "bunseki-output.csv"; $certaindist = 25; $input1 = <>; #### database connection…