$app->add_move_handler ( sub { $ship->move( @_ ) } );
$app->add_show_handler ( sub { $ship->draw( @_ ) } );

##</code><code>##

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

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

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

##</code><code>##

my $move_ship = sub { $ship->move( @_ ) };
my $draw_ship = sub { $ship->draw( @_ ) };

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