howto define Auth-Type in perl script?