Select Code to Download

use Win32::NetAdmin;

...
   print OUT "$box\n"; # print each $box on a newline
}
close OUT;

while (<IN>) {
    my $line = $_;
    chomp $line;
    # now do something with $line which we got from the file
}

@ary = qw(1 2 3 4 5);
print "first ", $ary[0], "\n";
@ary = join("\n",@ary);
print "second", $ary[0], "\n";