%which perl
%whereis perl

##</code><code>##

#!/perl/is/here/perl -w
use strict;
use CGI;
my $q = new CGI;
print $q->header();
print "<b>Howdy!</b>";