package PrintName;

use strict;
use warnings;

use parent qw/ Exporter /;

our @EXPORT_OK = qw/ print_name /;

sub print_name { 
  my($name) = @_;
  print "Hello, $name\n";
}

1;


##</code><code>##

package main;

use strict;
use warnings;

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

print_name("John");