#!/usr/bin/env perl

use strict;
use warnings;

use lib q(./);
use T4;

## Main
#
  my $obj_t = T4->new( name_env => q(foo) );
  print q(>> ) . $obj_t->t_hello_world . qq( <<\n);

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