use strict;
open(IN, "datafile") or die "can't open datafile";
local $/= 1;
select(IN);
$_= <IN>;
close IN or die "can't close IN";
print "datafile:\n", $_ or die "can't print";