-command=>\&SetKillFlag)->pack;

sub SetKillFlag{
    $killFlag = 1;
    
}