You want to put a package main; in your config file and then instead of my ( $server, $user, $pass) put  use vars qw($server $user $pass) and everything will be fine ;-} (you don't actually need to declare the package in your config file but it will help if you add any other packages)

/J\