I need a simple snake game for perl

#!usr/bin/perl

# ABSTRACT: Play the game
# PODNAME: snake.pl

use strict;
use warnings;

BEGIN {
    if ( $^O eq 'darwin' && $^X !~ /SDLPerl$/ ) {
        exec 'SDLPerl', $0, @ARGV or die "Failed to exec SDLPerl: $!";
    }
}

use Games::Snake;

Games::Snake->new()->run();

exit;

__END__

=pod

=head1 SYNOPSIS

Start the game from the command line:

snake.pl

=head1 DESCRIPTION

This script starts the game. It will open a 800x600 window (plus the
size of the window frame). Use the arrow keys to control the snake.
Close the window to end the game.

=head1 SEE ALSO

=over 4

=item * L<Games::Snake>

=back

=cut