Select Code to Download

    $CGI::DISABLE_UPLOADS = 1;          # Disable uploads
    $CGI::POST_MAX        = 512 * 1024; # limit posts to 512K max

    use CGI::Safe;
    my $q = CGI::Safe->new( DISABLE_UPLOADS => 0 );

    use CGI::Safe;
    $CGI::DISABLE_UPLOADS = 0;
    my $q = CGI::Safe->new;

    my $q = CGI::Safe->new( data => $stuff );

################################
package CGI::Safe;
...
    return ( exists $args{ data } ) ? CGI::new( $self, $args{ data } )
+ :
                                      CGI::new( $self );
}