use Win32::TieRegistry( Delimiter=>"/", ArrayValues=>0 ) ;
$openKey = $Registry->{"LMachine/SYSTEM/CurrentControlSet/Services/tftpd/parameters/"} ;
$tftpdDir = $openKey->{"/directory"} ;    
print $tftpdDir ;      
undef $tftpdDir ;
undef $openKey ;
exit 0;