or download this
@logfiles = $telobj->cmd("find . -mtime 0 -print");
foreach $logfile (@logfiles) {
@contents = $telnet->cmd("($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$siz
+e, $atime,$mtime,$ctime,$blksize,$blocks) = stat($logfile)");
print"content=> @contents \n";
}