open my $OUT, '>', $filename or die $!;
say {$OUT} myfunct($str1, $str2);
close $OUT;