use Win32::TieRegistry( Delimiter=>"/" );

my opt1 = $Registry->{"CUser/Control Panel/Desktop/TileWallpaper"} || die $^E;
my opt2 = $Registry->{"CUser/Control Panel/Desktop/WallpaperStyle"} || die $^E;