...
my $filename = qq($_);
...
my $ctxtf = qx(type "$filename");