alarm_pg.pm:
package pg_alarm;

use strict;

sub new {
    shift;
    my $seconds = shift;

    my $self = {};
    $self->{CHILD_PID} = fork();
    if ($self->{CHILD_PID} == 0) {
        sleep($seconds);