my $screen_surface = SDL::Video;
 $screen_surface->set_video_mode($screen_width, $screen_height, 32, SDL_ANYFORMAT) or die $!;