#!/usr/bin/perl -l
# busy_wait.pl

while (1)
{
        print "Busy!";
        sleep 2;
}