my $remote = q{R:/}; 
   print (-e $remote || "not found") ;