1
2
3
----
#!/usr/bin/perl

print <DATA>;
print "\n----\n";
seek(DATA,0,0);
print <DATA>;
__END__
1
2
3