small fix in perlmodule to handle device on dailyquery