DB<102> use warnings;use strict; sub tst { my $scalar=@_; print $scalar }

  DB<103>