EXPR and last
  while not(condition)
##</code><code>##

use Fatal
'unlink';
##</code><code>##

    do { open(my $tty, "/dev/tty") && readline($tty) or die "nope: $!" }

##</code><code>##

    print @x;  # where's the "uninitialized value in print" warning?
    sub TIESCALAR { bless{} } sub FETCH { 42 } tie $x, "main"; print $x