sub post_submit{
    my $ch=shift; # Curl handle 
    my $url=shift; # Url to submit form
    my $postfield=shift; # POST variables to submit

    #SET URL FOR THE POST FORM LOGIN
    $ch->setopt(CURLOPT_URL, "$url");
    #ENABLE HTTP POST
    $ch->setopt(CURLOPT_POST, 1);
    #SET POST PARAMETERS : FORM VALUES FOR EACH FIELD
    $ch->setopt(CURLOPT_POSTFIELDS, "$postfield");

    my $tmp_file='/tmp/post_response.txt';
    open(my $write_responsefile,'>',"$tmp_file") or die "Could not open $tmp_file for write";
    $ch->setopt(CURLOPT_FILE, $write_responsefile);

    #EXECUTE REQUEST
    my $retval = $ch->perform;
    close($write_responsefile);
    if ($retval){
            return 0;
    }else{
            return 1;
    }
}