Bareword "SDL_QUIT" not allowed while "strict subs" in use at ./skydive.pl line 102.
Bareword "SDL_KEYDOWN" not allowed while "strict subs" in use at ./skydive.pl line 104.
Execution of ./skydive.pl aborted due to compilation errors.

while ($event->poll != 0) {
      my $type = $event->type();
      exit if $type == SDL_QUIT;

if($type == SDL_KEYDOWN) {
        my $keypressed = $event->key_name;
  
        if($keypressed eq "left") {
            $obj->move("w", 0.1);
        } elsif($keypressed eq "right") {
            $obj->move("e", 0.1);
        } elsif($keypressed eq "up") {
          # deploy parachute
          $vterm = $VTERM_PARA;
          $obj->image($para);
        } elsif($keypressed eq "r") {
          $obj->wipe();
          next GAME;
        } elsif($keypressed eq "q") {
          exit 0; # quit
        }
      }
    }

SDL_perl is up to date

 while ($event->poll != 0) {
      my $type = $event->type();
      exit if $type == SDL::Event::SDL_QUIT();
   
      if($type == SDL::Event::SDL_KEYDOWN()) {
        my $keypressed = $event->key_name;
.
.
.

Undefined subroutine &main::TEXT_SHADED called at /usr/lib/perl5/SDL/TTFont.pm line 26.