fork(1) download
  1. #!/usr/bin/perl -a
  2. use 5.10.0;
  3. map{$s+=$_}@F;say$s
Success #stdin #stdout 0s 6044KB
stdin
3 -4
stdout
-1