my $src_stat = stat($srcname) or die "Can't stat $srcname: $!";
my $dst_stat = lstat($dstfile) or die "Can't lstat $dstfile: $!";
my $planesH_stat = stat('/trib/oper/scripts/planesH.s.P370') or die "Can't stat /trib/oper/scripts/planesH.s.P370: $!";