use LJ::Evening; unless ((localtime)[6] == 5) {die} my $pirogi = LJ::Evening->new('kippie'); $SIG{ALRM} = sub {shutdown($pirogi,2) }; alarm 1800; $pirogi->location('Дмитровка'); $pirogi->go($now);