sub move_ship
{
    $ship->draw( @_ );
}

sub draw_ship
{
    $ship->draw( @_ );
}

$app->add_move_handler( \&move_ship );
$app->add_show_handler( \&draw_ship );