sub queryresult {
    my ($s_off_no) = @_;
    ## Do stuff
}