Module:

package testarvilt;

use strict;
use warnings;

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

1;
[download]

Main script:

use strict;
use warnings;
use testarvilt;

my $result = testarvilt::menskrivtillbaka("Hejhej");
print $result, "\n";
[download]