perl -wMstrict -MDevel::Trace::Subs=remove_trace -e 'remove_trace(file => "trace.pl");'