fork(1) download
  1. #!/usr/bin/perl
  2.  
  3. $[ = 2;
  4.  
  5. my @xs = (1, 2, 3);
  6.  
  7. print $xs[2] . "\n";
  8. print $xs[3] . "\n";
  9. print $xs[4] . "\n";
  10.  
Success #stdin #stdout #stderr 0s 6028KB
stdin
Standard input is empty
stdout
1
2
3
stderr
Use of assignment to $[ is deprecated at prog.pl line 3.