package testarvilt;

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

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