my $stringy='c:/data.txt';
open FH,">$stringy" or  die;
print $stringy;