@contents = $telnet->cmd(qq(perl -e '$,=$/; print stat(shift)' $logfile));