[Localmachine:]date
Thu Jul  6 14:45:01 IST 2006

[Remotemachine:]date
Thu Jul  6 10:14:09 IST 2006

##</code><code>##

@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) );
								
		}