my $date = $1;
       print "date \n <br>";