today miss take

#!/usr/bin/perl
BEGIN{ s| = 1; print "Content-type: text/html\n\n"; open(STDERR,">&STDOUT");}
use CGI;
$query = new CGI;

corect
#!/usr/bin/perl
BEGIN{ $| = 1; print "Content-type: text/html\n\n"; open(STDERR, ">&STDOUT"); }
use CGI;
$query = new CGI;