diff --git a/src/contrib/warden-client-nosoap/lib/WardenClientReceive.pm b/src/contrib/warden-client-nosoap/lib/WardenClientReceive.pm
index d8a6b9cecbc898a87e5f326d9935902c2664152c..c429fa5bb2dcb3f46b18517f7bafad371991def7 100755
--- a/src/contrib/warden-client-nosoap/lib/WardenClientReceive.pm
+++ b/src/contrib/warden-client-nosoap/lib/WardenClientReceive.pm
@@ -36,7 +36,7 @@ sub getNewEvents
     WardenClientConf::loadConf($conf_file);
 
     # set name of ID file for each client aplication 
-    my $caller_name = $FindBin::Script;
+    my ($caller_name) = ($FindBin::Script =~ /^(.*)$/);	# untaint
     my $id_file = $vardir . $caller_name . "-". ($requested_type || "any") . ".id";
 
     #-----------------------------------------------------------------------------
diff --git a/src/warden-client/lib/WardenClientReceive.pm b/src/warden-client/lib/WardenClientReceive.pm
index 14c012b55c877061e25c7398d389594944bb2cc5..6718d1359ccc1cdb05c4ebfb0c9d151c4a0fd13b 100755
--- a/src/warden-client/lib/WardenClientReceive.pm
+++ b/src/warden-client/lib/WardenClientReceive.pm
@@ -39,7 +39,7 @@ sub getNewEvents
     WardenClientConf::loadConf($conf_file);
 
     # set name of ID file for each client aplication 
-    my $caller_name = $FindBin::Script;
+    my ($caller_name) = ($FindBin::Script =~ /^(.*)$/);	# untaint
     my $id_file = $vardir . $caller_name . "-". ($requested_type || "any") . ".id";
 
     #-----------------------------------------------------------------------------