open (FILE, $currentfile) or die $!;