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!}
}
unless ((($i++)%5) == 0){ $T.=qq!<\/tr><\/table>\n!}
print "Click on a image to see a larger version. $click ";
print qq!$img\n! }
$T.= qq!
\n!;
if ((($i++)%5) == 4){ $T.=qq!
$img
$hash{$bird}
$buy";
print $T;
}
else {
$pricesize = $hash{$q};
($img = $q) =~ s/_/ /g;$img =~ s/\d$//;
print "$click $buy
$hash{$q}
!;
}
print qq!