如何使用Perl计算大型CSV文件中的行数？

I have to use Perl on a Windows environment at work, and I need to be able to find out the number of rows that a large csv file contains (about 1.4Gb). Any idea how to do this with minimum waste of resources?I have to use Perl on a Windows environment at