diff --git a/pandora_server/ChangeLog b/pandora_server/ChangeLog
index 8812c00e72..f86b5111f3 100644
--- a/pandora_server/ChangeLog
+++ b/pandora_server/ChangeLog
@@ -1,3 +1,9 @@
+2009-01-26  Manuel Arostegui <marostegui@artica.es>
+
+	* util/udp_client: Added to repository. Remote alert execution
+	script. To be used in "Command" section of the new alert
+	system.
+
 2009-01-24  Raul Mateos <raulofpandora@gmail.com>
 	
 	* lib/PandoraFMS/Config.pm: Changed some texts for last time. Use tabs
diff --git a/pandora_server/util/udp_client b/pandora_server/util/udp_client
new file mode 100644
index 0000000000..1ea2bca03a
--- /dev/null
+++ b/pandora_server/util/udp_client
@@ -0,0 +1,15 @@
+#!/usr/bin/perl
+use strict;
+use IO::Socket;
+
+if ($#ARGV != 2) {
+        print "Usage: $0 <ip address> <port> <command>\n";
+        exit 1;
+}
+
+my $sock = IO::Socket::INET->new(Proto     => 'udp',
+                              PeerAddr  => $ARGV[0],
+                              PeerPort  => $ARGV[1])
+    or die "Creating socket: $!\n";
+
+$sock->send($ARGV[2]) or die "[error] $!";