c:\windows\temp\pdk-username--(what process-id to write here?)\mytextfile.txt

##</code><code>##

sub chfile
  {
  .......
  my $datafile = "myfile.txt";
  my $filename = PerlApp::extract_bound_file($datafile);
  die "$datafile not bound to application\n" unless   
  defined $filename;
  my $fh="LEX";
  open($fh,'$filename') or die "Can't open $datafile
  $filename)\n";
  
  while(<LEX>){
  ......

  }
 }

##</code><code>##

Tk:Error:Can't open myfile.txt <c:\test\pdk-myname--121077199/myfile.txt>[\&main::chfile]