sub getOutputFilename
{
     my ($inputFilename, @extraStuff) = @_;
     if (!defined $inputFilename) { $inputFilename = ''; }

     my @inputElements = split /\./, $inputFilename;
     my $inputExtension = pop @inputElements;
     if (!@inputElements)
     {
          push @inputElements, $inputExtension;
          $inputExtension = 'csv';
     }
     $inputElements[-1] .= '_RX';
     my $outputFilename = join '.', (@inputElements, $inputExtension);

     return $outputFilename;
}