# Default include for hsml-perl # # Convert all $ENV{ARG_xxx} variables to $xxx foreach $key (split(' ',$ENV{"ARGV"})) { $var=$key; $key=~s/....//; $var=$ENV{$var}; eval("\$$key = \"$var\";"); }