print +(<$file>)[-1];  # would do!