fork download
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;
  4. my $xs = (1,2,3);
  5. my $x = 4;
  6. my $y = 5;
  7. print $xs+$y; #3+5, this is a feature, not bug. read about contexts in Perl
Success #stdin #stdout #stderr 0s 3740KB
stdin
Standard input is empty
stdout
8
stderr
Useless use of a constant (2) in void context at prog.pl line 4.