how about:

foreach $number (@ARGV) {
  print "$number\n" unless ($number % 2); 
}
[download]