#!/usr/bin/perl use 5.006; use strict; no warnings; use File::Basename; use File::Spec; use Cwd; BEGIN { chdir dirname(__FILE__) or die "$!"; chdir '..' or die "$!"; }; do "./Build.PL"; local @ARGV = (@ARGV, 'test'); do "./Build";