After thinking about it I agree with $code_or_die. Why would you use STDIN when using CGI? You can use the params() to get anything you want, even in offline mode by entering on the command line (you must use 'name=value' style in this mode like so:

#!/usr/bin/perl -w
use strict;
use CGI;
my $q = new CGI;
print $q->header,
        $q->start_html('hello world'),
        $q->h1('hello world'),
        $q->end_html;

1;
[download]

Don't forget to use ^Z on Win32 to break out of offline mode.

Celebrate Intellectual Diversity