Select Code to Download

use warnings;
use strict;

...
     print $element, "\n"; # using say, or setting $\ locally would wo
+rk as well
  }
}