#!/usr/bin/perl -w
use strict;

for (1) {
    print "emacs rules";
}

while (1) {
    print " ... at least in viper mode\n";
}