$ perl -E '
    my $fo = "";
    update($fo);
    print "|$fo|";

    sub update {
        my ($arg) = @_;
        $arg .= "XXX";
    }
'
||