sub get_checkout_link
{
my $label = shift;

my $url;

	($url = "https://www.addr.com/~summitwe/cgi-bin/pet_shop.cgi") =~ s/^http:/https:/i;
	return (a ({-href => $url. "?choice=checkout"}, img ({-src => "../images/checkout.jpg",  -border => "0", escapeHTML ($label)})));
}