#!/usr/bin/perl
# change_directory.pl
use warnings;
use strict;
use Cwd;

#list the Timepoint directories
my @TP_dir = glob("T*");
print @TP_dir, "\n";

#list the first timepoint directory
print $TP_dir[0], "\n";

my $current_dir = getcwd();
print $current_dir;

chdir ("$current_dir/$TP_dir[0]") or die "Can't change directory to TP $!\n";
________________________________________________________

##</code><code>##

C:\Documents and Settings\Punita Sharma\Desktop\ExperimentDate>pe
tory.pl
T1T2
T1
C:/Documents and Settings/Punita Sharma/Desktop/ExperimentDate
C:\Documents and Settings\Punita Sharma\Desktop\ExperimentDate>