package MY::slurp;
use strict;
use warnings;
use IO::File;
use Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(slurp);
sub slurp {
my $file = shift;
my $fin = IO::File->new( $file, '<' ) or die "can't open $file; $!";
return join('', <$fin>);
}
1;