use warnings;
use strict;

print "testing seek of DATA handle\n";
print "this will print this program\n";
seek (DATA,0,0); 
my $text = do{ local $/ = undef; <DATA>; };
print $text;


__DATA__
asdfasdf asdfasdf