subtest 'trim' => sub {
    my @test = ("  leading", "trailing  ", "  both  ");
    trim(my $tmp = "  leading");
    is("leading", $tmp, "trim: leading");
    trim($tmp = "trailing  ");
    is("trailing", $tmp, "trim: trailing");
    trim($tmp = "  both  ");
    is("both", $tmp, "trim: leading & trailing");
    trim(@test);
    my $out = "'".join("', '",@test)."'";
    is("'leading', 'trailing', 'both'", $out, "trim: list");
    done_testing();
};