Select Code to Download

#!/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;

#!/bin/perl -w
use strict;
my( $_var, $_val)= split /\s*=\s*/, $ARGV[0];
my %hash=( $var => $val);