my $scalar = '';
open FOO, '>', \$scalar;
print FOO "Hi there\n";
close FOO;