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