my $path = "tmp/$filename"; open my $htmlOut, '>', $path or die "Can't create $path: $!\n"; print $htmlOut < Second page
$t->{title}
$t->{phone}
HTML close $htmlOut;