Select Code to Download

my $srcdir ='/var/local/some_dir';
my $mtime = 1;
...
    if ( $? != 0 ) { die "Gzip failed" }
    print "$file archived in $destdir\n";
}

use Path::Class qw( dir );
my $srcdir = dir( '/var/local/some_dir' );
...
    if ( $? != 0 ) { die "Gzip failed" }
    print "$file archived in $destdir\n";
}