my $file = $0 ;
  
  open(FH, $file) ;
  foreach my $line (<FH>){
    my $tel = tell(FH) ;
    print "$tel>> $line" ;
  }
  close FH;