#!/usr/bin/perl -T

use CGI::Carp qw(fatalsToBrowser);

use FindBin qw($RealBin);

my $safepath;
BEGIN {
    if ($RealBin =~ m!^(/home/username/website/uk/www)!) {
        $safepath = "$1/../lib";
    } else {
        die "Illegal use of software - visit www.website.uk to use this site";
    }
}
use lib "$RealBin/../lib";

use Site::HTML;    <-- line 17