#     $node = ("$ARGV[1]");
#     $interface = ("$ARGV[3]");
     chomp ($node);
     chomp ($interface);
     
      my ($session, $error) = Net::SNMP->session(
      -hostname  => shift || $node,
      -community => shift || $community

##</code><code>##

perl -e "print $ARGV[0]" first