null is not a Perl keyword. You probably want if( !defined $username ) or if( $username !~ /\S/ ). Or maybe both.

Also don't forget to print a http header before printing any content.