Select Code to Download

$ perl -e 'use strict; for my ($d,$v){ $_=lc<>; chomp; }
   print "got $d and $v\n"'
Missing $ on loop variable at -e line 1.

$ perl -e 'use strict; for (my($d,$v)){ $_=lc<>; chomp; }
   print "got $d and $v\n"'
Global symbol "$d" requires explicit package name at -e line 2.
Global symbol "$v" requires explicit package name at -e line 2.
Execution of -e aborted due to compilation errors.

$ perl -e 'use strict; ($_=lc <>), chomp for my ($d,$v);
  print "got $d and $v\n"'