1 
 2 
 3 
 4 
 5 
 6 
 7 
 8 
 9 
10 

#!/usr/bin/perl
#You better use this stuff to hit on wimminz
#Also you gotta call it like "perl denstark.pl > test.html
#Because I'm too cool for file i/o
my $name = <STDIN>;
use CGI qw/:standard/;
print header(),
  start_html('<3'),
  h1('Dear ' . $name . 'I love you' . '<br />') x99,
  end_html;