Perl SDL Sprite

#!/usr/bin/perl

use strict;
use warnings;
use Carp;
use SDL;
use SDLx::App;
use SDL::Event;
use SDL::Events;
use SDL::Image;
use SDL::Audio;
use SDL::Mixer;
use SDLx::Sprite;
use SDLx::Sprite::Animated;
use SDL::Mixer::Samples;
use SDL::Mixer::Channels;
use SDL::Mixer::Music;

my $app=SDLx::App->new(
    w=>500,
    h=>500,
    title=>'Moving Sprite'
);

my $quit=0;
my $laser=20;
my $laser_y=25;
my $fire=0;
my $e_x=100;
my $e_y=50;
#positions
my $pos_y=15;
my $pos_x=5;
my $ex=SDL::Rect->new($e_x,$e_y,20,20);
my $dt=15;
my $rect=SDL::Rect->new(0,0,50,50);
my $sprite = SDLx::Sprite::Animated->new(width=>100,height=>120);
$sprite->load("man.png");
#$sprite->ticks_per_frame(1);
sub get_events{
    my $event=SDL::Event->new();
    #$event->set_key_repeat(10,10);
    SDL::Events::pump_events();
    while(SDL::Events::poll_event($event)){
        $quit=1 if $event->type==SDL_QUIT;
        if($event->type==SDL_KEYDOWN){
            if($event->key_sym==SDLK_RIGHT){
                print "RIGHT!\n";
                $sprite->next;
                last;
            }elsif($event->key_sym==SDLK_SPACE){
                $sprite->stop;
                $sprite->reset;
            }
        }
    }
}

sub render{
    $sprite->draw($app);
    $app->update();
    SDL::Video::update_rects($app,$sprite->rect);
}
while(!$quit){
    get_events();
    render();
}