From 680c75d6d7fda4c3d309e791b5e02c17fdcd464c Mon Sep 17 00:00:00 2001
From: Logan <xackery@gmail.com>
Date: Sun, 14 Jan 2018 18:24:20 -0800
Subject: [PATCH] Updated Perl Client AccountID (markdown)

---
 Perl-Client-AccountID.md | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

diff --git a/Perl-Client-AccountID.md b/Perl-Client-AccountID.md
index 3352b0a..7bc638d 100644
--- a/Perl-Client-AccountID.md
+++ b/Perl-Client-AccountID.md
@@ -1,11 +1,7 @@
-Retrieve a [client](client)'s account ID. An Account ID is wraps all characters together, and can be found in the database [account](account).
-
+AccountID.
 ### Example
 
 ```perl
-sub EVENT_SAY {
-	if($text=~/hail/i) {
-		quest::say("Your account ID is: ".$client->AccountID().".";
-	}
-}
+my val = $client->AccountID();
+quest::say(val);
 ```
\ No newline at end of file