Select Code to Download

foreach ( my $i = 0; $i < 10 ; $i++ )
{
    print "\$i is $i\n";
}

for my $user (@names)
{
    print "Found user $user\n";
}