udo perl -e '
use Net::Lorcon2 qw( :subs );
my $lorcon = Net::Lorcon2->new();
use Data::Dumper; 
print Dumper($lorcon);
'