Select Code to Download

#!/usr/bin/perl
use strict;
...
open LOG, '>', $outfile or die "Unable to create $outfile: $!";
print LOG join "\n", @inlog;
close LOG;

@array = ();

@array = <FILE>;

my $var1;
my $var2;