or download this
for ($a = 0; $a <=$count-1; $a++) {
@size_local = $telnet->cmd("ls -ltr $src_cold/$list_files[$a]
+ \|awk '{print \$5}'");
...
if ($size_local[0] != $size_remote) {
Log::it $log, "Difference in size of $list_files[$a] $size
+_remote in $host and $size_local[0] in $local.\n";
Log::it $eventfile, $msgstrng . "Difference in size of $li
+st_files[$a] in $host and in $local.\n";