my $localpath = "c:/apps/Sync/";
my $localpathfiles;
   open(Source, '<', $localpath."localpath.txt")
      or die "Konnte Quelldatei nicht oeffen $!";
      while(<Source>)
      {
        $localpathfiles = $_;
      }
   close(Source);

chomp ($localpathfiles);
$localpathfiles =~ s/\s+$//g;
$localpathfiles =~ s/\\/\//g;

if ($localpathfiles ne~ /\/$/)
{
$localpathfiles = $localpathfiles."\/";
}

#!/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;

open my $fh, '<', $file or die $!;
my $line = <$fh>;
close $fh;

my $line = do{ local @ARGV = 'test.xml'; <> };
print $line;