Select Code to Download

open (IN, "<", $ARGV[0]);
my $i =0;
while (<IN>){$i++}
print $i;

perl -e 'open(IN,"<", $ARGV[0]);$i=0;while(<IN>){$i++};print $i' in.fi
+le

perl -ne '$i++; print $i' in.file

perl -ne '$i++; print $i' in.file