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;
}