#!/usr/bin/perl use lib qw( /var/www/lib/perl ); use CGI qw( -compile :all ); use CGI::Carp qw( fatalsToBrowser ); 1;