Select Code to Download

#!/usr/bin/perl -w

...
  }
  return($line_cnt);
}

Before call: old value 
29 lines read 
after call: old value