my $BOF = tell DATA;
    open my $data, '+<', $0 or die ...;
    seek $data, $BOF, 0 or die ...;