my $datapos = tell DATA;
my $code = join '', <DATA>;
seek DATA, $datapos, 0;