>perl -le
"use warnings; use strict;  sub tst { my ($scalar) = @_;  print $scala
+r }  tst
"
Use of uninitialized value $scalar in print at -e line 1.
[download]

That warning :)