#!perl510 -w use strict; sub foo(); foo(); sub foo() { my $foo; format STDOUT = ^ $foo; . $foo="X"; write; }