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

##</code><code>##

@contents = $telnet->cmd(qq(perl -MFile::stat -e 'print stat(shift)->mtime()' $logfile));