sub SERVER() {1} # or: use constant SERVER => 1; use if SERVER, "Sybase:DBlib";