Select Code to Download

$ perl -w
use strict;
...
Useless use of a constant in void context at - line 3.
print $scalar, "\n";
C

$ perl -v

This is perl, v5.8.7 built for cygwin-thread-multi-64int
(with 1 registered patch, see perl -V for more detail)

$ perl -w
my $scalar = (1, 2, 3);
Useless use of a constant in void context at - line 1.