Select Code to Download

#!/usr/bin/perl -l
use strict;
...
@ARGV = map{glob} @ARGV;
my @selection =  grep { -s < 1000 } @ARGV;
print for @selection;

Warning: Use of "-s" without parentheses is ambiguous at script.pl lin
+e 7.
Unterminated <> operator at script.pl line 7.

#!/usr/bin/perl -l
use strict;
...
@ARGV = map{glob} @ARGV;
my @selection =  grep { (-s) < 1000 } @ARGV;
print for @selection;

my @smaller_than_1000 = grep { -s < 1000 } @ARGV;