[Kingly_Krab]

Here's my code for seven plugins, including zone short name and just zone period.

These go in the 'plugins' folder, you can name the Perl file anything you want.
http://pastebin.com/AtqS8F2p

All you would do is this.

sub EVENT_SAY
{
	if($text=~/Hail/i)
	{
		plugin::Whisper("The zone you are bound to is " . plugin::Zone($client->GetBindZoneID()) . ".");
	}
}