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";