#!/usr/bin/perl

use strict;
use warnings;

my $wm = $ENV{'XDG_CURRENT_DESKTOP'};
print "Window Manager: $wm";

# later on, call specific system command for the running window manager