You can put the duplicated code in a module (as you would in non-test code). Then your test scripts can look like:

use Test::More;
use MyApp::Frob;
use MyApp::Test::Config;

my $cfg = MyApp::Test::Config->cfg;
my $frob = MyApp::Frob->new($cfg->whoToFrob, $cfg->whatToFrob);
ok($frob, "can create a frob");
[download]