open my $htmlout, ">tmp/$filename" or die "Cant open: $!\n";
print $htmlout "\n";
print $htmlout "\n";
print "$i page";
print $htmlout "\n";
print $htmlout "\n";
for my $t (@{$res->{result}}) {
print $htmlout "$t->{title}
";
print $htmlout "$t->{phone}
";
}
print $htmlout "\n";
close $htmlout;