use strict;
use warnings;

use My::Package qw(print_lines);

open my $file, '<', shift;

print_lines($file);