package FirmaTest {
  print "welcome to FirmaTest\n";
  sub import
  {
    use feature ();
    feature->import ('say');
  }
  use strict;    #strictures are imported
                 # while warnings are not
  #use warnings; seems not enough..
  $^W=1;         # but setting $^W seems ok!
  
  $ENV{'FirmaTest'} = 1;#it works
  
  use POSIX qw (strftime);
}

1;

##</code><code>##

perl -MFirmaTest -e " print qq(warnings: $^W\n); print qq(ENV: $ENV{'FirmaTest'}\n); say qw(saying: aa)
 my $str = POSIX::strftime( '%B %d, %Y',0, 0, 0, 12, 11, 115, 2 );say qq(POSIX::strftime: $str)  "


#output:
welcome to FirmaTest
warnings: 1
ENV: 1
saying:aa
POSIX::strftime: dicembre 12, 2015