use strict;
use CGI qw(:standard); 

my $foo = param('foo');

if ($foo) {
   print "true value\n";
}
elsif ($foo eq 0) {
   print "zero value\n";
}
else {
   print "undef value\n";
}