#!perl510 -w

use strict;

#sub foo();
foo();

sub foo() { # shouldn't use () but does no harm here
  my $foo;

  format STDOUT =
^
$foo;
.

  $foo="X";
  write;
}