#!/usr/bin/perl -w 
use strict;
use Net::SNMP;

my $router = "10.8.10.133";
my $community = "secretstring";
my $tftpdir = "/company/configs/";
my $tftpserver = "10.15.145.15";
my $oid = ".1.3.6.1.4.1.9.2.1.55.";
$oid = "$oid$tftpserver";
my $s; my $e;

($s, $e) = Net::SNMP->session( -hostname => $router -community => $community );
my @param = qw($oid OCTET_STRING "host.cfg");
$s->set_request(@param);
$s->close;