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