#!/usr/bin/perl use strict qw(vars) ; use lib ('lib', 'lib/perl-lib', '../gmb-lib', '../gmb-lib/perl-lib') ; # インクルードファイル BEGIN { require 'lib-main.cgi' ; } eval { main_routine() ; } ; if( $@ ){ use Lib::CGI::OutBuff ; my $buff = Lib::CGI::OutBuff->new ; $buff .= $@ ; print "$buff" ; } END{ close } # vim:pa+=lib,../gmb-lib: