#!c:/perl/bin/perl -w
$|++;

use strict;

# incorrect - maybe not what you expect
print scalar <DATA>;
seek DATA, 0, 0;     # seeks to first line of file!
print scalar <DATA>;

__DATA__
foo
bar