#!/usr/bin/perl -w

use strict;

{
    print "I'm going to sleep\n";
    sleep(1);
    redo;
}