#!/usr/bin/perl unshift(@INC,"/usr/local/etc/httpd/sites/virtualfoundation.org/admin"); require('cgisettings.pl'); &parse_input; $trees = int ( $argv{'amount'} / 5 ); if ($trees == 1) { $trees .= " tree"; } else { $trees .= " trees"; } print "Content-type: text/html\n\n"; #donor: $argv{'donor'}, recip: $argv{'recip'}, amount: $argv{'amount'}, trees: $trees

print < Virtual Foundation® Holiday Tree Donation Certificate

In Honor Of

$argv{'recip'}

will be planted

$trees

by the Great Wall of China

As pledged by

$argv{'donor'}

as part of the

Chinese American Friendship Forest

project on the Virtual Foundation website

www.VirtualFoundation.org
(888) 801-7101

EOF exit;