Select Code to Download

#!/usr/bin/perl

...
    }
    closedir DIR;
}

[lprjob1@tor-lx-sftp report-printing]$ ./test.pl 
Should dscpprod be processed?
...
gzip: /home/lprjob1/filest/dscpprod.2006-12-07/hs061206.v4.gz already 
+has .gz suffix -- unchanged
Cannot gzip /home/lprjob1/filest/dscpprod.2006-12-07/hs061206.v4.gz : 
+ at ./test.pl line 75.
gzip: /home/lprjob1/filest/dscpprod.2006-12-07/ncdsc061206.gz already 
+has .gz suffix -- unchanged