SaveStdin('newfile');
open STDIN, '<', 'newfile';
$q = CGI->new;