#!/usr/bin/perl # Set up the environment variables and dynamic variables from /my/config.cfg foreach (`. /my/config.cfg; set`) { chomp; my ($var,$val) = /^\s*(.*?)\s*=\s*(.*)/; ${$var} = $val; }