Maybe $dte1 is not what you think. Check:

try with:

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