FOREVER: for (;;) {
    chomp($line = <>);

    if ($line eq 'q') {
        last FOREVER;
    } else {
        print "You typed: $line\n";
    }
}