sub exec_check {
    my (%check) = @_;
    my @return = `$check{'CHECK_CODE'}`;
    foreach (@return) {
        my ($status, $string) = split(";", $_);
        print "$status $string";
    }
}