$birdname

#!/usr/bin/perl -w $ENV{'QUERY_STRING'} =~s/\+/ /g; my ($img,$url,$artist,$prov,$birdname) = split /\|/,$ENV{'QUERY_STRING'}; for () {(@a) = split /\|/;$provs{$a[0]} = $a[1]} $provenance = $prov?"From $provs{$prov}
":""; print <$birdname

EOHTML __DATA__ W|the WINGS catalog R|"Birds of the Blue Ridge Mountains" F|"Bird Finding in 40 National Forests and Grasslands", an ABA publication B|the Birds of North America);