#! perl
use strict;
use warnings;
use FileHandle::Unget;

$| = 1;

my $fh = FileHandle::Unget->new(\*STDIN)
  or die "Cannot open filehandle: $!";

print "\nEnter a string: ";
read($fh, my $buffer1, 10);
print "\nThe first  10 characters: '$buffer1'\n";

$fh->ungets($buffer1);

read($fh, my $buffer2, 15);
print "The \"next\" 15 characters: '$buffer2'\n";
$fh->close;