use strict;
use warnings;
use Test::Harness;

runtests(["podext.t"], ["excelpod.bat"], ["ExcelPOD.t"]);

##</code><code>##

use if (1 == scalar @ARGV && "-t" eq $ARGV[0]), "Test::More";

...

if (0 < scalar @ARGV && '-t' eq $ARGV[0]) {
    #Tests
    no warnings;
    eval {"plan tests => 63;"};
    use warnings;