perl -MTie::File -MFcntl=O_RDONLY -le 'tie @array, "Tie::File", shift, mode => O_RDONLY or die $!; print scalar @array' /etc/hosts