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


##</code><code>##

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