sub fork_bot{
    my $arg = shift;
    my $pid = fork();
    die "Can't fork: $!\n" unless defined $pid;
    return if $pid != 0;
    $pid = fork();
    die "Can't fork: $!\n" unless defined $pid;
    if($pid == 0){
        exec($arg->{bot}) or die "Can't start $arg->{bot}: $!\n";
    }
    sleep $arg->{runtime};
    kill 1, $pid or die "Can't kill $arg->{bot}: $!\n";
    exit(0);
}