#!/bin/perl -w
my( $_var, $_val)= split /\s*=\s*/, $ARGV[0];
die "can't use $_var as a variable name" if( $_var=~ /^_va[rl]$/);
${$_var}= $_val;