use lib '/opt/vyatta/share/perl5';
use lib '/opt/vyatta/sbin/';
use lib '/opt/vyatta/config/';

use Data::Dumper;
use Vyatta::Config;

$ENV{PATH} = "$ENV{PATH}:/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin";
$ENV{RUN}="/opt/vyatta/bin/vyatta-op-cmd-wrapper";
my $path = $ENV{'PATH'};
$config = new Vyatta::Config;
$config->setLevel("interfaces ethernet eth0");
$config->inSession();
my @c = $config->listNodes();

foreach my $i ( @c ){
  print $i,"\n";
}