1#!/usr/bin/perl -w 2use lib '/var/www/cgi-bin/Test'; 3use Test; 4$t = Test->new() ; 5$t->process() ; 6