sub exit_with_msg {
    my ($message,$returnid) = @_;
    print "CURRVALUE_STRING: $message\n";
    print "RETURNID: $returnid\n";
    exit 0;
}