print "\$len=$len\n";
print "data length=" . length($data) . "\n";