package DATA99; require Exporter; our @ISA = ("Exporter"); our @EXPORT_OK = qw(WasonE); sub WasonE { $WasonE{"time"} = ""; $WasonE{"HSname"} = "E Wason"; $WasonE{"cName"} = "E Wason"; $WasonE{"nickName"} = ""; $WasonE{"yearsHS"} = "4"; $WasonE{"gender"} = "Male"; $WasonE{"wiptabor"} = "I am an accomplished tattooer currently tattooing out of Lucky Draw Tattoo in Glendale. I plan on furthering my career, getting some travelling in, and possibly getting a house with my girlfriend."; $WasonE{"online"} = "I'm on quite a bit actually. I'm currently rebuilding the Lucky Draw website offline. Look for it in a few months. I'm on AIM constantly, and frequent Livejournal. IM me anytime. "; $WasonE{"yahoo"} = ""; $WasonE{"aim"} = ""; $WasonE{"msn"} = ""; $WasonE{"Last4"} = "I've been tattooing since early 2000. I almost got engaged to a prior girlfriend, but that fell through. I moved to Glendale, to Tempe, and then back to Glendale when I was offered a position at Lucky Draw. I met a nice English girl named Lee-Ann and we've been dating for just over a year now."; $WasonE{"Relationship"} = "Yes"; $WasonE{"family"} = "I hang out with my family quite a bit."; $WasonE{"kids"} = "Not Yet"; $WasonE{"hobbies"} = "tattooing, drawing, watching movies..."; $WasonE{"School"} = ""; $WasonE{"Major"} = ""; $WasonE{"Graduation"} = ""; $WasonE{"SchoolLife"} = ""; $WasonE{"jobs"} = "see above"; $WasonE{"military"} = ""; $WasonE{"Memories"} = "lunches on the steps behind the 400 building with Brandon and everybody. Classes with Mr Nielsen."; $WasonE{"fTeacher"} = "Mr Nielsen"; $WasonE{"Clubs"} = ""; $WasonE{"bFriend"} = ""; $WasonE{"friends"} = ""; $WasonE{"Dated"} = "nobody of significance"; @WasonE = values(%WasonE); } 1; #### #!/usr/bin/perl -wT use strict; use CGI qw(:standard); use lib "/home/bgregory/public_html/cgi-bin"; use DATA99 qw(WasonE); my $q = new CGI; my %WasonE; my $key; my $WasonE; my $name; my $value; my @WasonE; WasonE(); print $q->header( "text/html" ); print "\n\n"; print < END_OF_HEADER print < \n" if ( defined( $WasonE{'HSname'} ) ); print <

Quick Info:

END_OF_th print "		$WasonE{HSName}
END_OF_page exit;