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");