in reply to how to make this perl code run
No.
Although if you were willing to change hi; to hi(); this is easy.