Select Code to Download

use warnings;
use strict;

foreach $i (1...20)   # that ... should be ..

#!/usr/bin/perl
use warnings;
...
  print "@_\n";
}