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