Help for this page

Select Code to Download

Select or download this
```
my $begin_data = tell(DATA);
```

Select or download this

open my $source, "+<", $0 or die "Couldn't reopen source file: $!\n";
seek($source, $begin_data, 0) or die "Couldn't seek to beginning of DA
+TA: $!\n";
print $begin_data $text;