perl -e "*m = 100; $m=20;"