my $data;
while (<DATA>) { $data .= $_ }