while ( $filename = readdir(DIR) ) {
	
     if ( $filename =~ /\.txt$/i ) {
		
	my ($variable)=Read_File( $scan_dir, $filename );
		
	Scan_File($variable);
	Send_Email($variable);
	unlink( $filename );
	}
}