Dear monks, I understand that everything after the __DATA__ token is available for reading via the filehandle <package>::DATA. I was wondering if one could extend this to allow writing too? I.e.

use strict;
use IO::Handle;
my $io = IO::Handle->new_from_fd(*main::DATA, "w");
$io->read(my $buffer, 10);
print "$buffer\n";
$io->print("Some different data");
__DATA__
Some data
[download]

Update: I am sorry, I hadn't properly searched the monastery and found this node. Maybe there are better ways to do this now? If not then please reap this node.