in reply to param = 0, not NULL
#!/usr/bin/perl -w use strict; use CGI qw/:standard/; my $q = new CGI; my $choice = param('choice'); length( $choice ) or $choice = 1; [download]
-M
Free your mind