my $name = "Wastl";

print "\$^: $~ \n";
print "\$^: $^ \n";

$~ = TEST;
#$^ = TEST_TOP;

format TEST =
@<<<<<<<<
$name
.

format TEST_TOP =
Name
.

print "\$^: $~ \n";
print "\$^: $^ \n";

write;