my $string = "foo bar testing";
my $string2 = "foo bar testing";

use Benchmark;
use Test;

####################
# Test 1
####################
my $start = new Benchmark;
	
Test::testing1($string);
print qq|String is now: $string \n|;
	
my $end = new Benchmark;
my $diff = timediff($end, $start);
print "Time taken was ", timestr($diff, 'all'), " seconds \n\n"; 

####################
# Test 2
####################
# start timer
my $start = new Benchmark;
	
$string2 = Test::testing2($string2);
print qq|String2 is now: $string2 \n|;
	
my $end = new Benchmark;
my $diff = timediff($end, $start);
print "Time taken was ", timestr($diff, 'all'), " seconds \n\n";