my $infileold = shift || $fileold;