print "$^O\n";
my $oDevice = Net::Frame::Device->new(dev => '...');

##</code><code>##

MSWin32
Net::Frame::Device: updateFromDev: unable to get dnet