Shell Programming and Scripting

($cwkday,$cmonth,$cday,$ctime,$cyear) = split(/\s+/, localtime);
 $current_date = $cday."/".$cmonth."/".$cyear." ".$ctime;

 if($index==0)
   { 
      #Create the first line of the new file
      print("Creating the first line of the new file \n");
      push(@array,'Account_id');
      push(@array,'Subscriber_id');
      push(@array,'Package_id');
      push(@array,'effective_date');
      push(@array,'Expiration_date');
      # open (OUTPUT_FILE, '>>C:\perl\output\proration.$cyear$cmonth$cday.txt')||die "$!";
      open (OUTPUT_FILE, '>>C:\Users\christos.rovolis\Desktop\perl\output\proration_$current_date.txt')||die "$!";
      print OUTPUT_FILE (join ("|", @array), "\n");
      $index++;
   }

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
# Build current_date in YYYYmmdd_HHmmss format
$current_date = $year+1900 . sprintf("%02d",$mon+1) . sprintf("%02d", $mday) . "_" . sprintf("%02d", $hour) . sprintf("%02d", $min) . sprintf("%02d", $sec);

print "$current_date\n";
$index=0;
 if($index==0)
   { 
      #Create the first line of the new file
      print("Creating the first line of the new file \n");
      push(@array,'Account_id');
      push(@array,'Subscriber_id');
      push(@array,'Package_id');
      push(@array,'effective_date');
      push(@array,'Expiration_date');
      # open (OUTPUT_FILE, '>>C:\perl\output\proration.$cyear$cmonth$cday.txt')||die "$!";
      open (OUTPUT_FILE, ">>proration_$current_date.txt")||die "$!";
      print OUTPUT_FILE (join ("|", @array), "\n");
      $index++;
   }

$filename = "C:\whatever\$current_date.txt";
print "$filename\n";

$filename = "C:\\Users\\christos.rovolis\\Desktop\\perl\\output\\proration_$current_date.txt";