Using Client-Shortname within perl module