1. `perldoc -f warn`:

       
warn LIST

Produces a message on STDERR just like "die", but
doesn't exit or throw an exception.

If LIST is empty and $@ already contains a value
(typically from a previous eval) that value is
used after appending "\t...caught" to $@.  This is
useful for staying almost, but not entirely simi-
lar to "die".

If $@ is empty then the string "Warning: Some-
thing's wrong" is used.

2. I think that warning can be blamed on "use warnings;"

--
B10m