Help for this page
module ... 1;
#!/usr/bin/perl ... use PrintName qw/ print_name /; print_name("John");