Select Code to Download

use strict;
use warnings;
use diagnostics;

$ perl -c 298_SoPW.pl
Warning: Use of "-s" without parentheses is ambiguous at 298_SoPW.pl l
+ine 36 (#1)
...
Uncaught exception from user code:
        Unterminated <> operator at 298_SoPW.pl line 36.
 at 298_SoPW.pl line 36

my @selection =  grep { -s > 1000 } @ARGV;

     -s($file) + 1024  # probably wrong; same as -s($file + 1024)
    (-s $file) + 1024  # correct