open(HANDLE, "|cmd ss get $/Tate_SP2/$dir/$fname -Ybarbarat,12
+345|" || die "Couldn't run process:$!" );

##</code><code>##

#!c:/perl/bin/Perl.exe

use strict;
use warnings;

my @filesaffected;
my $builddir = "C:\\Source\\Tate_8.4\\Click2Coach";
my $dir;
my $fname;
my $tatedir = "C:\\Source\\Tate_8.4";

main();

sub main{
    #get files from vss
    my $filepath = "C:\\Source\\files.log";
    open (IN, $filepath) || die "Can't open $filepath:$!";
    while ( my $line = <IN> ) {
        chomp $line;
        next if ($line =~ /^\s*$/ or    # blank lines
                 $line =~ /^\s*#/);     # comments
        push(@filesaffected, $line);
    }
    close IN;

	for (@filesaffected){
	    ($dir, $fname)= $_ =~ /^(.*?)[\\\/]([^\\\/]+)$/;
	    $dir =~ s{\\}{/}g;

		open(HANDLE, "|cmd ss get $/Tate_SP2/$dir/$fname -Ybarbarat,12345|" || die "Couldn't run process:$!" );
		close HANDLE;
	}
}