use strict; use Test::Harness; runtests('test1.pl','test2.pl','test3.pl');