$excpdir=$defdev."/wxyzprod/wxyzexcp/";
$logfile=$defdev."/wxyzprod/wxyzlog.txt";
$indir=$defdev."/wxyzprod/wxyzin/";
$outdir=$defdev."/wxyzprod/suppliers/";
$archive=$defdev."/wxyzprod/wxyzarch/";

##</code><code>##

my $dir = '/wxyzprod';
$excpdir="$defdev$dir/wxyzexcp/";
$logfile="$defdev$dir/wxyzlog.txt";
$indir="$defdev$dir/wxyzin/";
$outdir="$defdev$dir/suppliers/";
$archive="$defdev$dir/wxyzarch/";

##</code><code>##

($device,$inode,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
$blksize,$blocks) = stat($getinfile);
my($timenow)=time;
$delta=$timenow-$mtime;

# versus
$delta = time - (stat($getinfile))[9];