{ local $/ = undef; open(FILE,"<".$filename) || die ("Could not open: $!"); $data = ; close(FILE); }