#!/usr/bin/perl
use strict;
use warnings;


my $Logpfad = '/c/';
my $Logdatei = " $Lpfad/logfile.txt ";
my ($hash,$backupgroesse,$backupdatum,$faktor,$size,$zaehler,$Zeitdieffernz);


print $Logdatei;

open ($Logdatei) || die ("Error : can't open log file");

#my $Logdatei = '/c/logfile.txt' ;


print "$Logdatei";

"perl -lane ' print $ F [0] ' $Ldatei";
#print Ldatei;

perl -alne ' print $F (1)  $Logdatei' (tut nichts)
$backupgroesse=$( ls -l $Logdatei | awk' '{ print $5 }');(geht nicht in Perl)
print "$bacupgroesse"