#!/usr/bin/perl 

use warnings; 
use strict; 

#list the Timepoint directories 

my $dir = ".";
opendir (DIR, $dir) || die "couldn't open directory $dir\n";

my @TP_dirs = grep{-d "$dir/$_" && /^T/ }readdir DIR;

foreach (@TP_dirs)
{
   print "relative path of TP:  $dir/$_\n";
}

__END__
in my dir, prints: relative path of TP:  ./TESTING