$divesub  = \&divesub;
$raisesub = \&raisesub;

sub AUTOLOAD {
    (my $sub = $AUTOLOAD) =~ s/.*:://;
    if ( $sub eq "divesub" ) {
        &dive;
    } else {
        &surface;
    }
}