$ perl -e'use strict; our $x = $x;' $