$where = "10.6.21.100 string $tftpfile";
  @param = qw($oid SET_REQUEST $where);
  ($session, $error) = Net::SNMP->session( -hostname  => $router
                                           -community => $community
                                         );      
  my $response = $session->set_request(@param);