#!/usr/local/bin/perl
use strict;
use CGI::Carp qw(fatalsToBrowser);
print ("Content-type: text/plain\n\n\n");
print("hi world\n");

12:31am stan:/usr/local/apache/logs # sudo -u www /home/neat/public_html/cgi-bin/hiworld.cgi
Content-type: text/plain


hi world
12:31am stan:/usr/local/apache/logs # sudo -u www /home/neat/public_html/cgi-bin/hiworld.pl
Content-type: text/plain


hi world
12:31am stan:/usr/local/apache/logs #