#script.pl

use strict;
use warnings;

use My::Package qw(:all);


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

print_lines($file);
test("hello world\n");
test_2("hello this is dog"); # i love this meme lol