package main;

use strict;
use warnings;

use lib "C:/Perl64/lib/printname";
use PrintName qw/ print_name /;

print_name("John");