#!/usr/bin/perl -w
use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);

$| = 1;

my $q = CGI->new();
print $q->header,
    $q->start_html('test.cgi at ult****.com'),
    $q->h1("Found me in ult****.com vhost "),
    $q->end_html;

$| = 0;

1;