#!/usr/bin/perl

use Tie::File;
my $file = $localpath."localpath.txt";

tie my @lines, 'Tie::File', $file or die $!;
my $localfiles = $lines[-1];
untie @lines;