C => sub {
    open ( FILE, "<test.txt" );
    while ( <FILE> ) {}
    my $ln = $.;
    close (FILE);
  }