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