1 #!/usr/bin/perl –w
2
3 use strict;
4 use CGI::Carp qw(fatalsToBrowser);
5 use CGI qw(:standard);
6 my $sendmail_path = ‘/usr/lib/sendmail’;
7 my $url = url;
8 my $mode = param(‘mode’);
9 my $site_to_promote = ‘http://expertwebinstalls.com’;
10 if($mode eq ‘’)
11 {
12 # let’s do this one without the fancy CGI.pm html generation
13 print <
17
18 Tell A Friend About This Site!
19
43
44