package Hello;
@Hello::ISA='';
package main;
sub p {
    print for @_
};

Hello->p('World')