#!/usr/bin/perl -w

use strict;
use warnings;
use Hello;

hello;

##</code><code>##

#!/usr/bin/perl -w
package Hello;
use strict;
use warnings;
use Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(hello);

sub hello {
    print "hello\n";
    my @call_info = caller;
    print $call_info[1], "\n";
}


return 1;