perl -e "my $shoo = 50; $shoo ||= 100; print $shoo;"