my $infileold = shift || $fileold;
    my $infilenew = shift || $filenew;