%attr>
ajax => 1
%attr>
<%args>
$arg => 'a'
%args>
<%init>
$arg =~ s/^(.{1}).*$/-$1/;
%init>
<%perl>
my $out = $m->comp("/include/system:netcvdiag", arg => $arg);
$out =~ s/^\s*//g;
$out =~ s/>/>/g;
$out =~ s/</g;
%perl>
<% $out %>