CGI Perl


    
    CGI How-to, ReadC_pl Test Form
    
    
    Press here to try the test command line string.
    
    
    File: index.pl
    #!/usr/local/bin/perl
    sub readCommandLineData
    {
        local(*queryString) = @_ if @_;
        $queryString = join(" ",@ARGV);
        return 1;
    }
    print "Content-type: text/plain\n\n";
    &readCommandLineData(*data);
    print "The command line data is:\n\n";
    print $data;
    print "\n";