sub incr { shift; $x++ }
sub decr { shift; $x-- }

main->$op();