my $begin_data = tell(DATA);