use strict;
use warnings;
use Tie::File;

my $file = shift @ARGV;

tie my @arr, 'Tie::File', $file;
#Update: (thanks Corion and JohnGG)
#print $arr[15]."\n";
print $arr[14]."\n";