#...
use Kephra::Extention::Output::Config;

#...

sub run {
	my $win = Kephra::App::Window::_ref();
	my $doc = Kephra::Document::_get_current_file_path();
	Kephra::File::save_current();
	if ($doc) {
        clear_output();
        my $type = Kephra::Document::SyntaxMode::get();
        Kephra::Extention::Output::Config::load( $Kephra::basedir );
        my $prog = Kephra::Extention::Output::Config::get( $type ) || 'perl';
		my $proc = Wx::Perl::ProcessStream->OpenProcess(qq~"$prog" "$doc"~ , 'Output-Extention', $win);
	} else {
		Kephra::App::StatusBar::info_msg(
			$Kephra::localisation{app}{menu}{document} . ' ' . 
			$Kephra::localisation{app}{general}{untitled} . "\n" );
	}
}