sleep 1 until time - $llent->ll_time >= 1800;
passive_pop("Thirty minutes");

sleep 1 until time - $llent->ll_time >= 3600;
passive_pop("One hour");

sleep 1 until time - $llent->ll_time >= 5400;
passive_pop("Ninety minutes");

sleep 1 until time - $llent->ll_time >= 7200;
passive_pop("Two hours");
tattle_tail();

##</code><code>##

my %actions = (
  1800 => sub { passive_pop("Thirty minutes"); },
  3600 => sub { passive_pop("Sixty minutes"); },
  5400 => sub { passive_pop("Ninety minutes"); },
  7200 => sub { passive_pop("Two hours"); tattle_tail(); },
# 8000 => sub { disable_network_interface(); },
# 9999 => sub { self_destruct(); }
);

for my $duration (sort {$a <=> $b} keys %actions) {
  sleep 1 until time - $llent->ll_time >= $duration;
  $actions{$duration}->();
}