my $dte = $_[0];
my $dte1 = $_[1];
print "dte is :",$dte," and dte1 is: ",$dte1;