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