Как сделать одновременное выполнение 2-х заданий на примере insert, чтоб import2 не ждал import1? use DBI; my $serverdb = "localhost"; my $dbname = "db"; my $dbuser = "user"; my $dbpass = "passwd"; $insert='fordb.txt'; $insert2='fordb2.txt'; $DBLOG = "$insert"; open (DBLOG,"$DBLOG"); while (<DBLOG>) { $tmp_log_line = $_; chomp $tmp_log_line; push @arr_in,$tmp_log_line; } close (DBLOG); $DBLOG2 = "$insert2"; open (DBLOG2,"$DBLOG2"); while (<DBLOG2>) { $tmp_log_line2 = $_; chomp $tmp_log_line; push @arr_in2,$tmp_log_line2; } close (DBLOG2); sub import1; sub import2; $dbh->disconnect; sub что-то_еще; sub import1 { $dbh = DBI->connect("DBI:mysql:host=$serverdb;database=$dbname", "$dbuser", "$dbpass"); $insert = "INSERT INTO db1.table (row) VALUES (?)"; $sth1 = $dbh->prepare("$insert"); while(@arr_in){$line_in = shift @arr_in;$sth1->execute ($line_in)} $sth1->finish; } sub import2 { $dbh = DBI->connect("DBI:mysql:host=$serverdb;database=$dbname", "$dbuser", "$dbpass"); $insert2 = "INSERT INTO db2.table (row) VALUES (?)"; $sth2 = $dbh->prepare("$insert2"); while(@arr_in2){$line_in2 = shift @arr_in2;$sth2->execute ($line_in2)} $sth2->finish; }