3 print tell(\*DATA), "\n" ;
4 print sysseek(\*DATA, 0, 1), "\n" ;
6 my $read_cnt = sysread( \*DATA, $buf, 1000 ) ;
7 print "CNT $read_cnt\n[$buf]\n" ;
9 my $read_cnt = sysread( *DATA, $buf, 1000 ) ;
10 print "CNT $read_cnt\n[$buf]\n" ;
12 open( FOO, "<&DATA" ) || die "reopen $!" ;
15 my $read_cnt = sysread( \*FOO, $buf, 1000 ) ;
16 print "CNT $read_cnt\n[$buf]\n" ;
18 my $read_cnt = read( \*FOO, $buf, 1000 ) ;
19 print "CNT $read_cnt\n[$buf]\n" ;
22 print "lines [@lines]\n" ;