#!/usr/bin/perl -w

use strict;
use Win32::TieRegistry;

$Registry->{"HKEY_CURRENT_USER\\Software\\XPFixation"}
  or die "XPFixation is not configured on this machine.\n";

(my $user = $Registry->{"HKEY_CURRENT_USER\\Software\\XPFixation\\Username"} and
  my $pass = $Registry->{"HKEY_CURRENT_USER\\Software\\XPFixation\\Password"})
    or die "The XPFixation configuration has been tampered with.\n" .
      "Cannot display account information.\n";

print qq|
The configuration for XPFixation has been found on your machine.

PerlMonks Account Information:
------------------------------

   Username:   $user

   Password:   $pass

Delete this info from your computer? (Y/N) |;

if (<STDIN> =~ /^y/i) {
  delete $Registry->{"HKEY_CURRENT_USER\\Software\\XPFixation\\"}
    or die "Unable to delete this information from your computer!\n";
  die "Your PerlMonks account information has been successfully removed.\n";
} else {
  die "Your PerlMonks account information has NOT been removed.\n";
}