Help for this page

Select Code to Download


  1. or download this
    sub set_progname {
    $CGI::Carp::PROGNAME = shift;
    return $CGI::Carp::PROGNAME;
}
  2. or download this
    BEGIN { set_progname( 'script_1.cgi' ); }
END { set_progname( undef ); }
Main( @ARGV );