how to close STDIN

Hi, i have a script running on a web server (Apache) that accepts data from STDIN and saves it: use IO::Handle '_IONBF'; use constant BUFSIZE => 1024 * 2; my $io = new IO::Handle; if ( $io->fdopen(fileno(STDIN),"r") ) { while($io->read($buf, BUFSIZE)) { # ... save $buf ... } $io->close;