package Foo;

sub one {
...
}
sub two {
...
}
sub AUTOLOAD {
  goto &one;
}


package main;
# Then in your main routine

Foo->$sub($data);