use CGI;
use strict;

my $query = CGI->new();
my $subject = $query->param( 'subject' );

unless( defined $subject && $subject ) { 
   ...