Select Code to Download

    scalar( @reqform    ) 
    != 
    scalar( $q->param() )

    join( $; , sort( @reqform    ) ) 
    ne 
    join( $; , sort( $q->param() ) )

    while( ( $key, $value) = each %form )
    {
...
    }

    if( scalar @missing_params ) # ...

#!/usr/bin/perl -w
use strict;
...
}

# carry on...