sub INIT {

	my $name = shift;
	print "Hello, $name!";

}