#! /usr/bin/perl -wT

use strict;
$ENV{PATH} = '';
use File::Basename qw(dirname);
use Cwd qw(abs_path);
use lib qw(.);
use lib dirname(dirname abs_path $0);
use SiteFunctions qw(ValidLogin);