use diagnostics qw(-m lib -m perl -l en -l fr);
use warnings;
use lib ('');
$x = 1;