my $s_rect = SDL::Rect->new(-x => 0, -y => 0, -width => 64, -height =>64); # Source
my $d_rect = SDL::Rect->new(-x => 0, -y => 0, -width => 64, -height =>64); # Destination

$sprite->blit($s_rect,$app,$d_rect);

##</code><code>##

my $s_rect = SDL::Rect->new(-x => 0, -y => 0, -width => 64, -height =>64); # Source
my $d_rect = SDL::Rect->new(-x => 0, -y => 0, -width => 64, -height =>64); # Destination

$sprite->blit($s_rect,$app,$s_rect);