#!/usr/bin/perluse Proc::Daemon;
sub rest {
sleep(24 * 7);
}

$0 = “restd”

Proc::Daemon::Init;

while(1) {
sleep(60);
rest;
}

root@mylife:# perl go-sleep.pl

да се чете “изморен съм много и имам нужда от това една седмица да спя по цял ден”..