sub Hello{
my($text)=@_;
print $text;
}