foreach $argnum (0..$#ARGV){                 
  print "$ARGV[$argnum]\n";
  my $xpath=$ARGV[$argnum];
  $xpath =~ s/\//}->{/g;
  eval ($xpath = "{" . $xpath . "}");
  #xpath variable should becode like: $ret->{link}->{rel}
  print ${$ret->$xpath};
}