package testarvilt;

use strict;
use warnings;

sub menskrivtillbaka
{
  my $dininput = $_[0];
  print $dininput, "\n";
  my $dininput_len = length $dininput;
  return $dininput_len;
}

1;