Select Code to Download

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

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

($device,$inode,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctim
+e,
$blksize,$blocks) = stat($getinfile);
...

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