The McCarty Company: Forecasting Contest!

#!/usr/bin/perl open( DATA, " ) { chop( $line ); next if ( $line =~ /^#/ ); ( $var, $val ) = split( /=/, $line ); $in{ $var } = $val; } close( DATA ); # ----------------------------------------------------------------------- print < The McCarty Company: Forecasting Contest!

How well can you forecast this coming season's crop yields? Give your best estimate of the $in{'thisyear'} California production (fresh pack) of apples, asparagus, and cherries. The closest guess for each crop wins a crate of fruit!

For reference, $in{'prevyear'} estimated production was:

CROP		NUMBER OF BOXES
$in{'type1'}	($in{'size1'} box)	$in{'quant1'}
$in{'type2'}	($in{'size2'} box)	$in{'quant2'}
$in{'type3'}	($in{'size3'} box)	$in{'quant3'}

Your name:
Email:
Street Address:
City:
State:
Zip:

$in{'thisyear'} Entry Form