You can use require to emulate use. To get the same behaviuor as use Module you need to say:

BEGIN { require MODULE; import MODULE LIST; }
[download]

To get the same behaviour as use MODULE () you need to say:

BEGIN { require MODULE; }
[download]

This way you should be able to use cpan:://CGI module. If the module requires a more recent version of Perl, try looking for an older version, or for cgi-lib.pl, which is not maintained anymore but is still available around the web.

Hope this helps!

Michele.

sub GetParams
{
    my $webparams;
   
    if ($ENV{'QUERY_STRING'} ne '')
    {
        $webparams = "$ENV{'QUERY_STRING'}";
    }
    else
    {
        read(STDIN, $webparams, $ENV{'CONTENT_LENGTH'});
    }
    return $webparams;
}
[download]

$hash{input_name}[0]
$hash{input_name}[1]
[download]

sub GetParamsHash
{
    my $type = shift; #  type = 0 or not included returns a hash
                      #  type = 1 returns a hash of arrays

    my $webparams = shift;

    my $webparams2;
    my %webparams3;
   
    if(!$webparams)
    {
        if ($ENV{'QUERY_STRING'} ne '')
        {
            $webparams = "$ENV{'QUERY_STRING'}";
        }
        else
        {
            read(STDIN, $webparams, $ENV{'CONTENT_LENGTH'});
        }
    }

    if($type == 1)
    {
        $webparams2 = $webparams;
        $webparams2 =~ s/\&/\n/g;
        $_ = $webparams2;
        while(/^(.*?)=(.*)$/gm){ push @{$webparams3{$1}}, $2; }
    }
    else
    {
        $webparams2 = $webparams;
        $webparams2 =~ s/\&/\n/g;
        $_ = $webparams2;
        %webparams3 = /^(.*?)=(.*)$/gm;
    }
    return %webparams3;
}
[download]

sub DecodeURL
{
    my $text = shift;
    $text =~ tr/\+/ /;
    $text =~ s/%([a-f0-9][a-f0-9])/chr(hex($1))/eig;
    return $text;
}
[download]

If I understood clearly you cannot use module CGI. If it is, there is a one way to get form data and store them:

if($ENV{'REQUEST_METHOD'} eq 'GET') {   $query=$ENV{'QUERY_STRING'} }
elsif($ENV{'REQUEST_METHOD'} eq 'POST') { sysread(STDIN,$query,$ENV{'C
+ONTENT_LENGTH'}) }
else { die 'Unsupported method: $ENV{'REQUEST_METHOD'}' }

# Now $query consists a string with pairs name=value which 
# are sticked '&'

$query =~ s/&/\n/g;

open(FILE, '/your/file') or die 'Cannot open file: $!';
print FILE $query;
close FILE;
[download]

      
--------------------------------
SV* sv_bless(SV* sv, HV* stash);

the pb is that it does'nt recognize neither 'sysread' nor 'readparse' which were the two solution I knew! here the beginning of my form: <form method=\"post\" action="cible.pl"> where cible.pl is a script that will use the answers of the form...

Well, you can get form data from STDIN:

my $query = <>;
[download]

because all form data, which are sent using method POST, come to the STDIN of handled script.

      
--------------------------------
SV* sv_bless(SV* sv, HV* stash);

• If possible, upgrade your version of Perl to 5.8. The version you are using is about five years old.
• You may not be able to use CGI because it was never installed. Running

  perl -MCGI -de 1
  [download]

  should tell you whether CGI.pm is installed or not. Check with the System Administrator if in doubt.
• What do you mean when you say sysread and BEGIN aren't recognized? You need to present code examples for us to even begin to help you.

This forum helps people with Perl problems. CGI and HTML are topics that may be Perl-related and may not be.

#!/agl/tools/perl/bin/perl

if($ENV{'REQUEST_METHOD'} eq 'GET') {
   $query=$ENV{'QUERY_STRING'}
   }
elsif($ENV{'REQUEST_METHOD'} eq 'POST') {
   sysread(STDIN,$query,$ENV{'CONTENT_LENGTH'})
   }
else { die 'Unsupported method: $ENV{'REQUEST_METHOD'}' }

# Now $query consists a string with pairs name=value which 
# are sticked '&'

$query =~ s/&/\n/g;

open(FILE, '/home/testuser3:choicebug.txt') or die 'Cannot open file: 
+$!';
print FILE $query;
close FILE;
[download]

_{edited by ybiC: <code> tags enclosing code sample}

1. Go to CPAN.
2. Read the documentation for CGI.
3. Try some of the examples.
4. Try your form again.

In future, please wrap your code examples inside code tags. This means we don't get your code smooshed into one big line.

--t. alex
Life is short: get busy!