opendir DH, "/tmp/store" or die "could not open directory: $!";
while (1) {



while($_ = readdir(DH) ) {

	next if $_ eq "." or $_ eq "..";
	my @data = split /_/;
	$mobile = $data[1];
	undef @data;
	chomp $mobile;
	s/^\s+//, s/\s+$//, s/\s\s+/ / for $mobile;
	open FH,"/tmp/sms/$_" or die "could not open: $_  $!";
	undef $/;
	my $data = <FH>;
	chomp $data;
	my @fields = split;
	my $appcode = $fields[0];
	my $message = $data;
	s/^\s+//, s/\s+$//, s/\s\s+/ / for $data;
	close FH;
	sendtolive($mobile,$message); # Sends data through socket connection
	unlink("/tmp/sms/$_"); # remove file once read
	}

}
closedir DH;