Select Code to Download

sub conv2jul {
   my $moda=shift;
...
   $jul += $da;
   return $jul;
}

sub conv2jul {
   my $moda=shift;
   my @Days = (0,31,28,31,30,31,30,31,31,30,31,30,31);
...
   $jul += ($Days[$mo..$mo-1]) + $da;     # his is the only diff
   return $jul;
}