my ($mday,$mon,$year) = (localtime(time))[3,4,5];
       $year += 1900;

   my $str = $mon.'/'.$mday.'/'.$year;

   $Sheet->Range("a1")->{Value} = $str;   
   $Sheet->Range("c1")->{Value} = "This is a long piece of text";