use strict;
use warnings;

use My::Package (keys %My::Package::); # <-----why does this work?

open (my $file, '<', shift);

print_lines($file);
test("hello world\n");
test_2("hello this is dog");

##</code><code>##

package My::Package;

use Exporter qw(import);
@EXPORT_OK = (keys %My::Package::);

use strict;
use warnings;

sub print_lines{
    
	my ($input) = shift;

    while(<$input>){
        print;
    }
	close($input);
}


sub test{
	
	my ($input) = shift;
	print $input;
}

sub test_2{
	
	my ($input) = shift;
	print $input;
}

##</code><code>##

this
is
a
test!!!!