@logfiles = $telnet->cmd("find . -mtime 0 -print");

	foreach $logfile (@logfiles) {
		chomp($logfile);
				
		@contents = $telnet->cmd(qq(perl -MFile::stat -e 'print stat(shift)->mtime()' $logfile));	
		
		foreach $mtime (@contents) {
				chomp($mtime);
				$logtime = strftime( "%Y%m%d %H%M", localtime($mtime) );
								
		}