#!/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;

##</code><code>##

Argument "community" isn't numeric in subtraction (-) at ./tftp.pl line 14.
Argument "57.8.10.133" isn't numeric in subtraction (-) at ./tftp.pl line 14.
Odd number of elements in hash assignment at
/usr/lib/perl5/site_perl/5.6.0/Net/SNMP.pm line 196.
Can't call method "set_request" on an undefined value at ./tftp.pl line 20.