package printname;

use strict;
use warnings;

my $name = ();

printname($name);

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


1;