#!/usr/bin/perl

use strict;
use HTML::Template;
use Apache2::RequestUtil ();

use constant TMPL_PATH => '/home/httpd/domain.com/templates';
use constant TMPL_FILE => 'login.tmpl';

my $r = Apache2::RequestUtil->request();
$r->status(200);

.....