use strict;

format STDOUT =
@<<<<<<<  
$::foo
.

local $::foo = 'a string';
write STDOUT;

__output__

a string