use Win32::TieRegistry;
$Registry->Delimiter("/");

my $key="HKEY_LOCAL_MACHINE/Software/Microsoft/Windows NT/CurrentVersion/Winlogon";
$Registry->{"$key//DefaultUserName"}="seppl";