use File::Slurp;   #!important!

my $blah = new SOME::Module;
$blah->start;

eval read_file('guts.pl');

$blah->end;