#! perl -w
use warnings;
use strict;

package mystuff;

sub say_hello {
    print "hello " . shift() . "\n";
}

1