use strict;
use warnings;
use English;
use diagnostics -verbose;
use File::Path;
use Switch;
use Cwd;
#Load Windows specific moduldes
use if ($^O eq "MSWin32"), "Win32";
use if ($^O eq "MSWin32"), "Win32API::Registry" => qw(:ALL);
use if ($^O eq "MSWin32"), "Win32::Shortcut";
use if ($^O eq "MSWin32"), "Win32::TieRegistry";
if ($OSNAME eq "MSWin32") {
	$main::Registry->Delimiter("/");
}