use strict;
use warnings;

my @date=split(" ",localtime());
my ($cur_date,$script_flag);

$cur_date=$date[2];

while() {

 if($script_flag) {
   my $var = `echo RAJA`;
   print $var;
 }

 @date=split(" ",localtime());
 if($date[2]==$cur_date) {
   $script_flag=1;
   $cur_date=$date[2]+ 1;
 } else {
   $script_flag=0;
 }
 
 exit if($cur_date > 31); # As i need only for 31st of this month
}