#!/usr/bin/perl

use strict;
use warnings;

my $TestFlag = $ENV{'TEST_ENVIRONMENT'};
if (!defined $TestFlag) { $TestFlag = ''; }

if ($TestFlag =~ /TRUE/i)
{
	print "I'm running tests!  I'm running tests!\n";
}
else
{
	print "This does not appear to be a test environment.  Skipping tests.\n";
}

exit;

__END__

S:\Steve\Dev\PerlMonks\P-2014-04-02@1516-Self-Governing-Tests>set TEST_ENVIRONMENT=TRUE

S:\Steve\Dev\PerlMonks\P-2014-04-02@1516-Self-Governing-Tests>perl maybetest.pl
I'm running tests!  I'm running tests!

S:\Steve\Dev\PerlMonks\P-2014-04-02@1516-Self-Governing-Tests>set TEST_ENVIRONMENT=

S:\Steve\Dev\PerlMonks\P-2014-04-02@1516-Self-Governing-Tests>perl maybetest.pl
This does not appear to be a test environment.  Skipping tests.

S:\Steve\Dev\PerlMonks\P-2014-04-02@1516-Self-Governing-Tests>