Select Code to Download

#!/usr/bin/perl

...

NetSNMP::TrapReceiver::register("all", \&my_receiver) || warn "failed 
+to register\n";
print STDERR "Loaded the example perl snmptrapd handler\n";

perl do "/usr/local/share/snmp/mytrapd.pl hello";

That won't work.  The perl 'do' command only expects a filename.

...
perl do /path/to/script
perl foo("hello world");
perl foo("now I am passing something different");