#!/usr/local/bin/perl print <Price List EOHTML $q=$ENV{'QUERY_STRING'}; $click=qq!The dimensions given are approximately those of the actual drawing.
!; $buy=qq!To purchase one or more drawings send a check directly to the artist:
Jan Wilczur
30 Dover House Road
London SW15 5AU
UK

Include a \$25 handling and shipping charge with your order.!; while () {chomp; ($bird,$pricesize) = split /\|/; $hash{$bird} = $pricesize; } if (!$q){ for $bird (sort keys %hash) { ($img = $bird) =~ s/_/ /g;$img =~ s/\d$//; if ((($i)%5) == 0){ $T.=qq!\n! } $T.= qq!\n!; if ((($i++)%5) == 4){ $T.=qq!

$img
$hash{$bird}

\n!} } unless ((($i++)%5) == 0){ $T.=qq!<\/tr><\/table>\n!} print "Click on a image to see a larger version.

$click
$buy"; print $T; } else { $pricesize = $hash{$q}; ($img = $q) =~ s/_/ /g;$img =~ s/\d$//; print "$click $buy

"; print qq!$img
$hash{$q}
!; } print qq!!; __DATA__ Bearded_Mountaineer|$25 10x15cm Banded_Pitta2|$45 10x14cm Black-eared_Shrike-Babbler2|$50 19x13cm Black_and_Red_Broadbill2|$45 9x13cm Black_and_White_Warbler2|$80 17x12cm Black_Francolin2|$50 18x11cm Blue-headed_Quail_Dove2|$55 21x12cm California_Thrasher|$45 16x20cm Common_Loon2|$50 20x12cm Crimson-collared_Tanager|$35 18x10cm Cuban_Trogon2|$30 12x15cm Elegant_Trogon|$45 18x14cm Hazel_Grouse|$80 18x14cm Horned_Puffins|$80 20x16cm Hyacinth_Macaws|$35 23x13cm Indian_Pitta2|$35 13x14cm Keel-billed_Toucan2|$35 15x12cm Lovely_Cotinga2|$50 18x15cm Malabar_Pied_Hornbill|$45 17x15cm Northern_Potoo2|$45 9x19cm Red-capped_Manakin2|$35 11x16cm Rufous_Sibia|$50 20x16cm Short-legged_Ground-Roller2|$35 15x14cm Smiths_Longspur2|$45 20x13cm Three-wattled_Bellbird|$35 14x13cm Swallow-tail_Bee-Eater2|$35 19x12cm Tiger2|$120 24x16cm Wards_Trogon2|$35 11x12cm White-backed_Woodpecker2|$85 18x13cm White-naped_Woodpecker2|$80 20x16cm White-necked_Jacobin2|$30 12x13cm White-throated_Magpie-Jay2|$45 18x16cm White-winged_Wood-Duck2|$80 12x15cm