use strict;

my $start = tell(DATA);

print while (<DATA>);

seek DATA,$start,0;

print while (<DATA>);

__DATA__
Hello