my $src_stat = stat($srcname);
my $dst_stat = lstat($dstfile);
my $planesH_stat = stat('/trib/oper/scripts/planesH.s.P370');

printf "%s: %s %d\n", $srcfile, $src_stat->mtime(), $src_stat->size();
printf "%s: %s %d\n", $dstfile, $dst_stat->mtime(), $dst_stat->size();