#!/usr/bin/perl 

package Slurp;

use strict;
use warnings;
use Carp;

{
	no strict 'refs';
	*main::slurp = \&Slurp::slurp;
}

sub slurp
{
	
	
	{
		local $/;
		open(my $fh,'<',$_[0]) ||
                  croak " Cant open [ $_[0] ] -- ($!) ";
		$_ = <$fh>;
		close($fh);
		return($_);
	}

	
}

1;