use Proc::Background;
        timeout_system($seconds, $command, $arg1);
        timeout_system($seconds, "$command $arg1");

        my $proc1 = Proc::Background->new($command, $arg1, $arg2);
        my $proc2 = Proc::Background->new("$command $arg1 1>&2");
        $proc1->alive;
        $proc1->die;
        $proc1->wait;
        my $time1 = $proc1->start_time;
        my $time2 = $proc1->end_time;

        # Add an option to kill the process with die when the variable is
        # DETROYed.
        my $opts  = {'die_upon_destroy' => 1};
        my $proc3 = Proc::Background->new($opts, $command, $arg1, $arg2);
        $proc3    = undef;