Hello, thank you for your reply. The java code uses the below nonce value:  final String nonce = String.valueOf(System.currentTimeMillis());

In perl i am using now

use Time::HiRes qw(gettimeofday);

my $timestamp = int (gettimeofday * 1000);
[download]

Even after this change it still fails.:(.