#!/usr/bin/perl -w # mod_cgi instance script for FileUploader::InitialRequests module: use strict; use warnings; BEGIN { use FindBin qw($RealBin); # warn $RealBin; use lib ( '/home/raj/perl5/lib/perl5', '/home/raj/www/perl-lib/FileUploader/lib', $RealBin . '/../../lib' ); # use CGI::Carp qw(fatalsToBrowser); # use CGI::HTMLError trace => 1; use FileUploader::ErrorHandler; } use FileUploader::InitialRequests; my $app = FileUploader::InitialRequests->new( PARAMS => { cfg_file => '/home/raj/www/perl-lib/FileUploader/lib/config.pl', file_type => 'initial_requests', } ); $app->run;