Anonymous Monk,
You were missing a couple of close braces

#!/usr/bin/perl
use strict;
use warnings;

sub param { }
if ( param() ) {

  my $name     = param("name");
  my $email    = param("email");
  my $phone    = param("phone");
  my $url      = param("url");
  my $requests = param("requests");


  if ( $name ne "") {
     if ($email ne "") {
        if ($requests ne "") {
          print "very good!";
        }
        else {
          print "please leave a message";
        }
     } # You were missing me
     else {
        print "please enter your email";
     }
  }    # You were missing me
  else {
     print "please enter your name";
  }
}
[download]