Testing W32 files names w/spaces:

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

my $fullelementpath = "f:/_wo/haldane.txt";
if (-T $fullelementpath) {print "passed T\n";}else{print "failed for $
+fullelementpath\n";}
# -----------------------
my $fullelementpath2 = "f:/_wo/haldane space.txt";
if (-T $fullelementpath2) {print "passed T\n";}else{print "failed for 
+$fullelementpath2\n";}
[download]

Output:

C:\>pl_test\887602.pl
passed T
passed T

C:\>
[download]