#!/usr/bin/perl
use strict;
use warnings;

# Untested!

sub run_tests()
{
    # your job! Maybe just system("prove");
}

for my $subdir ("right","wrong") {
    system("net use t: \\\\localhost\\testsuite\\$subdir");
    run_tests();
    system("net use t: /delete");
}