package My::Package;

use Exporter qw(import);
@EXPORT_OK = qw(print_lines);

use strict;
use warnings;

sub print_lines{
    
    my ($input) = @_;

    while(my $lines = <$input>){
        print $lines;
    }
}