#/usr/bin/perl

use strict;
use warnings;

print "Guess the song title:\n";
# 'There is a light that never goes out' (The Smiths)

my $light = 1;
while (1) {
	$light = 0 if 1 < 0;
	print "Light is ", $light ? "on" : "off", "\n";
	sleep 1;
}