#!perl # its not in your path?? use slop; # remember 'dis, Ma? require 'cgi-lib.pl'; # yes, its a typo REadParse(); # and who cares about string types? if ($in{user{ == BBQ and $in{password} == 'phooey') # or braces? # why indent? why print a content type? print $a_variable_thats_going_to_be_def_l8er ifelse # yeah, why not? warn 'it didn't work' # oops, should i have escaped that? # well, you get the idea return('foo');