print scalar <FOO>;
    while (<FOO>) {print if eof}

##</code><code>##

    $ perl -ne 'BEGIN {print scalar <>} print if eof' /path/to/your/file

##</code><code>##

    system head => -1 => $file;
    system tail => -1 => $file;