|
<HTML>
<HEAD>
<TITLE>CGI How-to, ReadC_pl Test Form</TITLE>
</HEAD>
<BODY>
<A HREF="index.pl?test+query+string">Press here to try the test command line string.</A>
</BODY>
</HTML>
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";
|