$ cat y.pl
#!/usr/bin/perl
open $fh, '<', $0;;
print scalar <$fh>;;
print tell( $fh );;
print tell( $fh + 1 );;

$ perl y.pl # system perl: 5.10.0
#!/usr/bin/perl
Segmentation fault

$ perl5.10.0 y.pl
#!/usr/bin/perl
Segmentation fault

$ perl5.10.1 y.pl
#!/usr/bin/perl
Segmentation fault

$ perl5.8.9 y.pl
#!/usr/bin/perl
16-1