#!/usr/software/bin/perl

#my $output = `dfm event list  -x`;

my $output = "Error: Illegal option -- x";

print "\nTRUE\n"
    if ( $output
    =~ /The.*?command\stakes.*?arguments;\syou\sgave.*|Illegal\soption.*|.*?is\snot\sa\svalid\soption.*/i
    );