foreach $argnum (0..$#ARGV){
  print "$ARGV[$argnum]\n";              
  my $path=$ARGV[$argnum];
  @path=split /\//,$path;
  $node=node->{$_} for @path;
  print $node;
  }
print "\n";
}