% perl -le 'print for f(); sub f {use => strict}'
use
strict