#! /bin/perl
#
# button.pl	--- library of standard HTML buttons
#
# This package and friends can be found at:
# http://iamwww.unibe.ch/~scg/Src/

# Substitute your own button directory!
# Buttons should be in files left.guf, right.gif etc.
$W = "http://www.yoursite.com/icons";

sub button {
	local($button,$URL) = @_;
	print "<A HREF=\"$URL\" ALT=\"$button\">",
		"<IMG SRC=\"$W/$button.gif\"></A>\n";
}

1;