#my $temp_surf = SDL::GFX::Rotozoom::shrink_surface( $big_image, .7, .
+7); 
# shrink dos'nt work for me... gives floatingpoint errors
#Carp::confess SDL::get_error if !$temp_surf;
#draw( $temp_surf );
[download]

i think you get an floatingpoint error cause shrink needs a shrinkingfactor and 0.7 < 1. try something like

my $temp_surf = SDL::GFX::Rotozoom::shrink_surface( $big_image, 7, 7);
[download]

or

my $temp_surf = SDL::GFX::Rotozoom::shrink_surface( $big_image, 1.3, 1
+.3);
[download]

this should work