##
use Fatal
'unlink';
##
##
do { open(my $tty, "/dev/tty") && readline($tty) or die "nope: $!" }
##
##
print @x; # where's the "uninitialized value in print" warning?
sub TIESCALAR { bless{} } sub FETCH { 42 } tie $x, "main"; print $x