some script

my %stv=qw();
sub getst;1;
sub getst {
  my ($esr)=@_;
  my $esr0 = substr($esr,0,5);
  if($stv{$esr}) {
    print " ST $esr already loaded\n";
    return;
  }
  my $url=$base."/free_car/proc_n.php?p_sop=".$esr0;
  my $pg=get $url,"gioc_st$esr0";
  $stv{$esr} = 1;
  my ($esr1, $name) = $pg=~m#size=2>(\d+)\s*(.*?)<#;
  if (!$name) {
    print " station $esr not found!\n";
    return;
  }
  print " ST [$esr1] [$name]\n";
  die "OOPS" if $esr1 ne $esr0;
  $dbh->do("INSERT INTO gioc_st (esr,name) VALUES ('$esr','$name')") unless $noact;
}

system "mkdir -p cache";
dbinit;

my $sth = $dbh->prepare("SELECT esr FROM stations WHERE region_id IN (SELECT id FROM regions WHERE country='Украина')");
$sth->execute;
while (my ($esr) = $sth->fetchrow_array) {
  getst $esr;
}