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;