#!/usr/bin/perl

$date = `date +%Y-%m-%d-%T`;
$YY = substr($date,0,4);
$MM = substr($date,5,2);

print "\n DT:",$date;
print "\n YY:",$YY;
print "\n MM:",$MM;

if ($MM eq 01) { 
    $MM = '12'; 
    $YY = $YY - 1; 
   }
else {
    $MM = $MM - 1; 
#   if ($MM eq 1 || $MM eq 2 || $MM eq 3 || $MM eq 4 || $MM eq 5 || $MM eq 6 || $MM eq 7 || $MM eq 8 || $MM eq 9) {
#       $MM = "0".$MM;
#     }
   }

print "\n YY:",$YY;
print "\n MM:",$MM;

$LS = "cd /home/j204sc/archive; ls *".$YY."-".$MM."* > /home/j204sc/workarea/archive.list";
print "\n LS:",$LS;

@proglist = "$LS";
$RC = system(@proglist);

if ($RC ne 0) { exit; }


open(INPUT1, "</home/j204sc/workarea/archive.list");

while (<INPUT1>) {
  $RM = "cd /home/j204sc/archive; rm $_";
  print "\n ",$RM;
  @proglist = "$RM";
  $RC = system(@proglist);
    }

close(INPUT1);

exit;
