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