sub filestat {
my $shelf=$_[0];
my $args=$_[1];
my $file=\$args->{file};
my returnrc='inuse';
my $loops=3;
my $z=0;
my @st = stat ${$file};
my $aktulleinodetime=$stat[10];
@st = ();


while ($loops >= $z) {
@st = stat ${$file};
my $neueinodetime=$stat[10];

if ($aktuelleinodetime == $neueinodetime) {
$returnrc=$aktuelleinodetime;
} else {
$aktuelleinodetime = $neueinodetime;
}
$z++;
}

return $returnrc;

}