#!/usr/bin/perlprint"1..1\n";my$testversion="0.98";useTie::File;if($Tie::File::VERSION!=$testversion){printSTDERR"*** WHOA THERE!!! ***You seem to be running version $Tie::File::VERSION of the moduleagainst version $testversion of the test suite!None of the other test results will be reliable.";exit1;}print"ok 1\n";