~:pwd
/home/cso
~:export PIKE_MODULE_PATH=/home/cso
~:pike program.pike 
Cannot call undefined lfun `().
program.pike:2: program()->main(1,({"/home/cso/program.pike"}))
~:cat program.pike
int main(int argc, array(string) argv) {
  object c = my_class("hello");
  c->action(123);
}
~:cat my_class.pmod 
string message;
void create(string m) {
  message = m;
}
void action(int id) {
  write(message + id + "\n");
}