##

#!/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