package Hello;
#this is a test module
sub greet{
	my $name =shift;
	print "hello,$name!\n"
}
1;