perl -e 'BEGIN { my %x = (); }'