Select Code to Download

EXPR and last
  while not(condition)

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