Help for this page
package PrintName; ... 1;
package main; ... use PrintName qw/ print_name /; print_name("John");