Select Code to Download

                foreach my $parse (@profiles) {
                        if (@profiles){

                             open (OUT, $proList) || print "cant open 
+profiles file!";
                             print OUT "$parse\n";