experiment/seek.pl

   1 #!/usr/local/bin/perl
   2
   3 use Fcntl qw( :seek ) ;
   4 my $tell = tell( \*DATA );
   5 my $sysseek = sysseek( \*DATA, 0, SEEK_CUR ) ;
   6
   7 print "TELL $tell SYSSEEK $sysseek\n" ;
   8
   9 __DATA__
  10 foo
  11 bar
  12