my $code = join '', <DATA>;
seek DATA, 0, 0;
while (<DATA> !~ /^__DATA__$/) {}