use testarvilt(menskrivtillbaka);

testarvilt::menskrivtillbaka("Hejhej");
print $dininput_len;

##</code><code>##

package testarvilt;

sub menskrivtillbaka
{
$dininput=@_[0];

print $dininput;
$dininput_len = length $dininput;
}
1;