Select Code to Download

#!/usr/bin/env perl

...
  $obj_t->t_set_remote(q(This is a test));
  print q(>> ) . $obj_t->t_get_remote . qq( <<\n);
## END Main

package T4;

...
## End Main ##

1;

package T4::MyMod;

...
  }
1;