All a statement like
    warn print WHATEVER 'some message';
will do insofar as generating a warning message is to print to standard error the return value of the print function, a 1 in the case of a successful print. Is this of any conceivable use?

c:\@Work\Perl>perl -wMstrict  2> two  1> one  -le
"warn print 'is this a warning?';
"

c:\@Work\Perl>type one
is this a warning?

c:\@Work\Perl>type two
1 at -e line 1.
[download]