Select Code to Download

            while ( <$contin> )
                    {
...
                     }
            close( $contin );
                }

if ( $contractors =~ m/^$string(.*)/ )

            while ( <$contin> )
                    {
...
                     }
            close( $contin );
                }