The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/local/bin/perl
use Benchmark::Timer::Class;
use TestC;
use Data::Dumper;
use strict;
my $tc_original = new TestC;
my $tc = new Benchmark::Timer::Class($tc_original);
my $one_var  = $tc->load1();
my (@two_vars) = $tc->load2();
$one_var  = $tc->load1();
@two_vars = $tc->load2();
$tc->report();