Put your shared code in inc/<something>.pm and place the following in your .t:

use Cwd            qw( realpath );
use File::Basename qw( dirname );

use lib dirname(realpath($0)).'../inc';
[download]