my ($name) = `cat /proc/@{[getppid]}/cmdline` =~ /^(\S+)/