do {
                                my @profiles = $mech->content =~ /\.cfm?member=(.*)\" class=/g;
                                chomp @profiles;
                                foreach my $parse (@profiles) {
                                        if (@profiles){
                                             $numPro++;
                                             open (OUT, $proList) || print "cant open profiles file!";
                                             print OUT "$parse\n";
                                             close(OUT);
                                               }
                                }
                        $currPage++ ;
                        print "$currPage $numPro\n\n";
                        } while ( $currPage <= 50 );