package str;

...

sub concat
{
    ...
}

package main;
use strict;
use warnings;

...