Well. What happened when you tried it?

Are you really so lazy that you cannot run a two line script to see if it works or not?

And then read perldoc perlsub for further information.