Select Code to Download

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

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