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