#!/usr/bin/perl -wT use strict; use CGI::Carp qw(fatalsToBrowser warningsToBrowser); my $derp = "jone"; my $reg = 'var emailReg = /^(?!.*_)\w+([\.-]?\w+)*@\w+([\.-]?\w+)*(\.\w{2,3})/;'; print "Content-type: text/html\n\n"; print <<"HTML";

$derp

HTML