Select Code to Download

 (my $hex_user=$user)=~s/(.)/sprintf("%02x",ord($1))/egs;
  print "User: '$user' = '$hex_user'\n";

$user=~s/\x0D\x0A$//;