Help for this page

Select Code to Download

Select or download this

use Tie::File;
tie @array, 'Tie::File', $filename or die $!;
print $array[-1];

Select or download this

use Tie::File;
use Fcntl 'O_RDONLY';
tie @array, 'Tie::File', $filename, mode => O_RDONLY
    or die $!;