$username = getlogin();
$USERNAME = "\L$username\E";
$key = 'HKEY_CURRENT_USER\Environment\INTRALINK_DEFAULT_USER';
use Win32::TieRegistry;

$Registry->{$key} = "$USERNAME";