local $ENV{ QUERY_STRING } = "username=$uname;password=$pwd";
open( WEBOS, "/usr/bin/custom_auth_tool |" )
   or die "Can't open pipe to authtool: $!\n";
## ...