opendir (DIR, '\srt') or die "Couldn't open directory, $!";
while ($file = readdir DIR)
{
	chomp($file);
	open (my $f, '<', "\srt\$file") or die "Open failed : $!";	
	print "$file\n";	
	close $file;
  
}