#!perl
use strict;
use warnings;
use Games::Snake;

# PODNAME: snake.pl

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


#!perl
use strict;
use warnings;

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

use Games::Snake;

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

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

exit;


Add darwin SDLPerl check, etc.
Add darwin SDLPerl check, etc.
