#!/usr/bin/perl

use GxSNMP;

  open(FILE, '+</tmp/mess');
  print FILE "A perl ";
  print {FILE} "test ";
  print(FILE "script.\n");

  close(FILE);

  GxSNMP::test();