Select Code to Download

use warnings;
use strict;
...
 sub printer{
   print $_,$/ for @_;
 }

...
printer(...);
...