always same code for perl cgi

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