Select Code to Download

********************
********************
********************
********************

********************
**test**************
********************
********************

tie my @array, 'Tie::File', $outputFile or die $!;
my $line = $array[2];
print $line . "\n";
untie @array;

tie my @array, 'Tie::File', $outputFile or die $!;
$array[2] = 'This is a test';
untie @array;

#!/usr/bin/perl
use strict;
...
     open my $output, ">>", "$outputFile" or die "Could not open $outp
+utFile: $!";
     print $output $input;
}