#!/usr/bin/perl -w
use strict;
while (1) {
 print "I am only printing and sleeping\n";
 sleep 1;
}