use Printname;

use strict;
use warnings;

use parent qw/ Exporter /;

our @EXPORT_OK = qw/ print_name /;

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

1;