my $a="/var/lib/processed/parkings-stats2/dailystat_$curtime"; 
print $a;
open (FH, '>', $a) or die "could not open"; 
while(my $row=$sth->fetchrow_hashref) { 
  my $eunq= $row->{eunq};
  my $eclk=$row->{eclk}; 
  my $domain_id=$row->{domain_id}; 
  my $ts = $row->{ts}; 
  my $id = $row->{id}; 
  my $ervn = $row->{ervn}; 
  my $account_id=$row->{account_id}; 
  print "$eunq==$domain_id\n"; 
  print FH "$account_id"; 
  print "$eunq\t$eclk\t$domain_id\t$ts\t$id\t$ervn\t$account_id\n";
}
close FH;