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