foreach my $filename ( readdir( DIR ) )
                {
                    my $filepath = "$scan_dir\\$filename";

 	           if ( $filename =~ /\.txt$/i ) {

		   my ($variable)=Read_File( $scan_dir, $filename );
		        
	           Scan_File($variables);
	           my $status=Socket($variable,$sock);
                   
	            }
		   else { # get rid id miscellanous files in this directory
		       unlink "$scan_dir\\$filename" or print ERROR "can't unlink $scan_dir\\$filename $!";
		   }
	        }