<%args> $derivedObj => undef <%init> use Data::Dumper; my $inst = $m->notes('INST'); my $dbname = $inst->dbname; my @result; my $args; my $cmd; if (ref($derivedObj)) { $args = join(' ', @{$derivedObj}); } else { $args = $derivedObj; } # Remove derived object and redirect STDERR to STDOUT $cmd = "remove_do --inst $dbname $args 2>&1"; @result = `$cmd`; $r->content_type('text/plain'); $m->clear_buffer; #$m->print(Dumper($tracklet), $cmd, "\n", @result); $m->print($cmd, "\n", @result, "\n\n"); $m->abort;