$f[1]= join ("", @gg);

 my @ff = ($f[0], $f[1], $z, $f[5]);

 $ss = join (" ", @ff);

if ($ss=~ /*ddd dd.dd.dd d+:d+ d+ d+/) {

# строка сформирована для записи в базу данных

$g= $ss;

# теперь строку $g приведем к необходимому формату и загрузим в базу данных

chomp($g);

my @gg=split / /, $g;

my @ggg=split /./, $gg[1];

$gg[1]=join "-", "20$ggg[2]", $ggg[1], $ggg[0];

my @dt;

$dt[0]=$dbh->quote("$gg[0]");

$dt[1]=$dbh->quote("$gg[1]");

$dt[2]=$dbh->quote("$gg[2]");

$dt[3]=$dbh->quote("$gg[3]");

$dt[4]=$dbh->quote("$gg[4]");

my $tbl="atstarif ";

$dbh->do("insert into $tbl (nums, mydate, mytime, min, numd)

         values ($dt[0], $dt[1], $dt[2], $dt[3], $dt[4])");

      }

    }

  }

}

$dbh->disconnect();

close ATS;

sleep(60);

}

Программу можно запустить в фоновом режиме, обычным образом обеспечить ее запуск при перезагрузке компьютера, организовать ее использование по усмотрению системного администратора.