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