my $buffer;
foosub( \$bufffer );
print $buffer, "\n";

sub foosub
{
    my $rs_buffer = shift;
    $$rs_buffer = "Hello, world";
}