use strict;
use warnings;

package Test;


sub SubInTest {
    my $tag = $_[0];
    $tag =~ s/p/n/;
    my $bag = $_[1];
    $bag =~ s/k/p/;

    return $tag, $bag;
}


1;