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

##</code><code>##

(fastolfe) eddie:~$ perl test user password test.file
$len=555
data length=580