diff --git a/The Offical KAKE PAD Macro Tutorial.doc b/The Offical KAKE PAD Macro Tutorial.doc
new file mode 100644
index 0000000..e838529
Binary files /dev/null and b/The Offical KAKE PAD Macro Tutorial.doc differ
diff --git a/kpad.pl b/kpad.pl
new file mode 100644
index 0000000..16445d6
--- /dev/null
+++ b/kpad.pl
@@ -0,0 +1,375 @@
+# KAKE PAD version 5.5
+# Future versions will look at using Perl 6
+
+# Please note that KAKE PAD depends on Tk and some bugs
+# are due to Tk and not KAKE PAD itself. No promises on how 
+# good or bad Tk is.
+
+# A few Tk modules need to be declared for PDK purposes
+use Tk;
+use Tk::TextUndo;
+use Tk::DialogBox;
+use File::Glob;
+use File::Find;
+use FileHandle;
+use LWP::Simple;
+
+#most of the above is only put in so I can compile to stand alone exe
+#If you use as script keep the last two and use Tk;
+
+# Below is the init section
+# A few thing to do is check OS to see if its Windows or not
+# I still don't know what I smoked when I wrote this but this section is important
+
+($ar) = @ARGV; #Let the program do its thing with the arguments
+# Bah check OS
+# Just to make sure test $0, this is a work around for a minor bug
+# Detect : a trade mark of a DOS system
+
+# The setion below is so odd and complex vodoo that is quite nessacry
+# yes I can't spell, only code
+
+if($^O ne "Win32") {
+if($0 =~/\//g){
+@hd = split "/", $0;
+$hdl = pop(@hd); # Knock the filename off the array we don't need it
+$basedir = join('/', @hd);
+}else{
+$basedir = ".";
+}
+}else{
+$basedir = ".";
+}
+
+$main = MainWindow->new(-title=> "kPad"); #Generates the main window
+
+$menubar = $main->Frame()->pack(-side => "top", -fill => "x"); #Notice I create the menu bar as
+# a frame not a Tk::Menu menubar, this makes things easier
+
+#Below I define all the DialogBoxes,note they can be globaly used
+
+$about = $main->DialogBox(-title=>"About...",-buttons=>["OK"]); #Creates the about Dialog
+$aabout = $about->add("Label",-text=>"kPad\n by Paul Malcher\nVersion 6 Release\n")->pack; #Adds a label to $about
+#$kweabt = $main->DialogBox(-title=>"About kWebedit...",-buttons=>["OK"]); #Creates the About kWebedit Dialog
+#$akweabt =$kweabt->add("Label",-text=>"kWebedit v.2.0\nby Paul Malcher\nBased on kWebedit v.1.0.3 by Chris Litwin ")->pack; #That's the about for kWebedit.
+$help = $main->DialogBox(-title=>"Help Topics",-buttons=>["OK"]); #Creates Help Dialog
+$ahelp = $help->add("Label",-text=>"Help topics for KPAD\nWell, this is a text/file editor mainly meant for scripting and programming use.
+Like notepad but made for the programmer.")->pack;
+$nsave = $main->DialogBox(-title=>"Warning File Has changed!",-buttons=>["Save","Exit"]);
+$ansave = $nsave->add("Label",-text=>"The documents contents have changed since you opened.\nDo you wish to save?.")->pack;
+$nimp = $main->DialogBox(-title=>"Non-implementation Error",-buttons=>["OK"]);
+$animp = $nimp->add("Label",-text=>"This function is not yet implemented!")->pack;
+
+$fetch = $main->DialogBox(-title =>'HTML Source Fetch',-buttons=>["OK"]);
+$afetch = $fetch->add("Label",-text=>'Fetch what:')->pack;
+$bfetch = $fetch->add("Entry",-text=>'http://')->pack;
+
+$dummy = $main->DialogBox(-title=>'Dummy Box');
+$adummy = $dummy->add("Text")->pack;
+
+$ftapp = $main->DialogBox(-title =>'File Has Changed!',-buttons=>["Yes","No"]);
+$aftapp = $ftapp->add("Label", -text=>"File contents have changed, save now?!")->pack;
+$track = "init";
+
+# Begin new Kpad 4.0 features
+# Plugin/Macros or whatever you want to call them
+# First we find and autoload plugin, yes we use grep, makes life good
+
+$pls = 0;
+# Heck with lets do it all in one loop
+
+while(<*.kpd>){
+push(@plugins,$_);
+open pin,"<$_";
+@gn = split "::" , <pin>;
+if(@gn[2] eq "auto"){
+@n[$pls] = "auto";
+}else{
+@n[$pls] = @gn[1];
+}
+$pls++;
+}
+# determin the number of plugins, so we can size the list accordingly
+$nop = scalar(@n); #notice @n does not get shortend, this is important later on
+foreach(@n) {
+if($_ eq "auto"){
+$nop--; # make sure auto plugins are not listed
+}
+}
+
+# Build the menu with list box
+$plugin = $main->DialogBox(-title=>'Macro Execution Menu',-buttons=>["Close"]);
+$bplugin = $plugin->add("Label",-text=>'Double Click To Execute Macro')->pack;
+$aplugin = $plugin->Listbox("-width"=>40, "-height"=> $nop)->pack;
+foreach(@n) {
+if($_ eq "auto"){
+$arun = 0;
+}else{
+$aplugin->insert('end', "$_");
+}
+}
+$aplugin->bind('<Double-1>' , \&eplugin); # Plugin name now can be different from the file name
+
+$filemenu = $menubar->Menubutton(-text => 'File', -underline => 0,-tearoff => 0)->pack(-side=>'left'); #This puts
+#the file button on the frame used for the menu bar
+
+#Below are the commands for that button
+#note How I included the subs into the command function
+
+$filemenu->command(-label => 'New',-command => sub{
+$text->delete('1.0','end');
+});
+
+$filemenu->command(-label => 'Open',-command => sub{
+$text->delete('1.0','end');
+my $types = [
+     ['Perl Scripts',       '.pl'],
+     ['All Files',        '*',             ],
+ ];
+
+$open = $main->getOpenFile(-filetypes=>$types);
+#open FILE, "<$open"; #took weeks to get this right,its there so te whole file loads correctly
+# and only 3 sec to comment out for the 5.0 release
+$text->Load($open);
+$text ->pack;
+});
+
+$filemenu->command(-label => 'Save',-command => sub{
+$data = $text->get('1.0','end'); #Saving for widget to file is a piece of cake
+if($ar eq ""){
+$text->Save($open);
+# Easy indeed
+}else{
+$text->Save($ar);
+}
+});
+
+$filemenu->command(-label => 'Save As',-command => sub{
+#my $types = [['All Files',        '*',             ],];
+my $types = [
+['Perl Scripts',      '.pl'           ],
+         ['All Files',        '.*',             ],
+ ];
+my $save = $main->getSaveFile(-filetypes=>$types);
+$text->Save($save);
+$open = $save; 
+});
+
+$filemenu->separator;
+
+$filemenu->command(-label => 'Exit',-command => sub{
+tapp();
+});
+
+$editmenu = $menubar->Menubutton(-text => 'Edit', -underline => 0,-tearoff => 0)->pack(-side=>'left');
+
+$editmenu->command(-label => 'Undo',-command => sub{
+my ($w) = @_;
+$text->undo;
+});
+
+$editmenu->command(-label => 'Redo',-command => sub{
+my ($w) = @_;
+$text->redo;
+});
+
+$editmenu->separator;
+
+$editmenu->command(-label => 'Cut',-command => sub{
+my ($w) = @_;
+$text->Column_Copy_or_Cut(1);
+});
+
+$editmenu->command(-label => 'Copy',-command => sub{
+my ($w) = @_;
+$text->Column_Copy_or_Cut(0);
+});
+
+$editmenu->command(-label => 'Paste',-command => sub{
+$text->clipboardColumnPaste();
+});
+
+$editmenu->separator;
+
+$editmenu->command(-label => 'Select All',-command => sub{
+$text->selectAll();
+});
+
+$editmenu->command(-label => 'Unselect All',-command => sub{
+$text->unselectAll();
+});
+
+$editmenu->separator;
+
+$editmenu->command(-label => 'Find',-command => sub{
+$text->findandreplacepopup(1);
+});
+
+$editmenu->command(-label => 'Find and Replace',-command => sub{
+$text->findandreplacepopup(0);
+});
+
+$viewmenu = $menubar->Menubutton(-text=>'View',-underline => 0,-tearoff => 0)->pack(-side=>'left');
+$vm = $viewmenu->cascade(-label => 'Wrap',-underline => 0,-tearoff => 0);
+$vm->radiobutton(-label => "Word", -command => sub { $text->configure(-wrap => 'word'); } ); 
+$vm->radiobutton(-label => "Char",-command => sub { $text->configure(-wrap => 'char'); } ); 
+$vm->radiobutton(-label => "None",-command => sub { $text->configure(-wrap => 'none'); } ); 
+
+$toolsmenu = $menubar->Menubutton(-text => 'Tools', -underline => 0,-tearoff => 0)->pack(-side=>'left');
+
+$toolsmenu->command(-label => 'Goto Line',-command => sub{
+$text->GotoLineNumberPopUp();
+});
+
+$toolsmenu->command(-label => 'Which Line?',-command => sub{
+$text->WhatLineNumberPopUp();
+});
+
+$htmlmenu = $menubar->Menubutton(-text => 'HTML', -underline => 0,-tearoff => 0)->pack(-side=>'left');
+
+$htmlmenu->command(-label => 'Fetch a web resource...',-command => sub{#$fdisc->Show;
+$fetch->Show;
+$htm = $bfetch->get;
+$contents = get($htm);
+open ttt, ">temp.dat";
+print ttt "$contents";
+close ttt;
+open FILE, "<temp.dat"; #took weeks to get this right,its there so te whole file loads correctly
+$text->delete('1.0','end');
+while (! eof FILE){
+$text->insert('end',FILE -> getline);
+}
+close FILE;
+unlink(<temp.dat>);
+$text ->pack;
+});
+
+$pluginmenu = $menubar->Menubutton(-text => 'Macros', -underline => 0,-tearoff => 0)->pack(-side=>'left');
+
+$pluginmenu->command(-label => 'Execute Macro',-command => sub{$plugin->Show;});
+
+$aboutmenu = $menubar->Menubutton(-text => 'Help', -underline => 0,-tearoff => 0)->pack(-side=>'left');
+
+$aboutmenu->command(-label => 'Help Topics...',-command => sub{$help->Show;});
+
+$aboutmenu->command(-label => 'About KPAD...',-command => sub{$about->Show;});
+
+#$aboutmenu->command(-label => 'About kWebedit...',-command => sub{$kweabt->Show;});
+
+# Text widget and configs
+$statbar = $main->Frame()->pack(-side => "bottom", -fill => "x");
+$statinfo = $statbar->Label(-text =>'Info: ')->pack(-side=>'left');
+$statln = $statbar->Label(-text =>'Line: 0')->pack(-side=>'left');
+$text = $main->Scrolled(TextUndo,-scrollbars=>'osoe',-background=>'white', -wrap => 'word')->pack(-fill=>'both',-expand=>1); #Scrolled Text
+
+
+#widget that adapts to the size of the window
+$main->protocol('WM_DELETE_WINDOW', \&tapp);
+# This replaces $track
+$text->bind('<<Modified>>' => sub{
+$track = $text->get('1.0','end');
+my ($w)=$text;
+my ($line,$col) = split(/\./,$w->index('insert'));
+#$statln = $statbar->Label(-text =>"Line $line")->pack(-side=>'left');
+$statln->configure(-text =>"Line $line");
+});
+
+if($ar ne ""){
+$text->Load($ar);
+$text ->pack;
+}
+
+sub eplugin { # Plugin executor, non-auto
+$v = $aplugin->get('active');
+# Fix for plugin vs. filename fix
+# @plugins @n
+$fp = 0;
+while(@n[$fp] ne $v){ # assume the names in @plugin match with @n 
+# which they will unless you screw with the way plugins are handled
+$fp++;
+}
+$v = @plugins[$fp];
+# Hope it works
+open pe, "<$basedir/$v"; # presto it does
+# The same damn bug in Tk again, yes the one that took weeks to work around
+# I got to do this the hard way
+$adummy->delete('1.0','end');
+while (! eof pe){
+$adummy->insert('end', pe -> getline);
+}
+$tdata = $adummy->get('2.0','end'); # this is the only way to load an entire plugin into a var the right way
+eval ( $tdata );
+if($@){ # Only way to to make so it can trap multiple errors without the app having a fatal error itself
+$error = $@;
+&merr($error);
+}
+}
+
+sub aeplugin { # Auto plugin executor
+$apc = 0;
+while(@n[$apc] ne ""){
+if(@n[$apc] eq "auto"){
+$v = @plugins[$apc];
+# Hope it works
+open pe, "<$basedir/$v"; # presto it does
+# The same damn bug in Tk again, yes the one that took weeks to work around
+# I got to do this the hard way
+$adummy->delete('1.0','end');
+while (! eof pe){
+$adummy->insert('end', pe -> getline);
+}
+$tdata = $adummy->get('2.0','end'); # this is the only way to load an entire plugin into a var the right way
+eval ( $tdata );
+if($@){ # Only way to to make so it can trap multiple errors without the app having a fatal error itself
+$error = $@;
+&merr($error);
+}
+}
+$apc++;
+}
+$arun = 1;
+}
+
+sub merr { # merr, macro/plugins error
+$merr = $main->DialogBox(-title =>'Macro Error',-buttons=>["OK"]);
+$amerr = $merr->add("Label", -text=>"Error: $error")->pack;
+$merr->Show;
+undef $merr;
+}
+
+if($arun eq "0"){
+&aeplugin();
+}
+
+sub tapp { # shutdown handler
+if($track ne "init"){
+$result = $ftapp->Show;
+if($result eq "No"){
+exit(0);
+}
+if($open){
+$text->Save($open);
+$saved = 1;
+}
+if($save){
+$text->Save($save);
+$saved = 1;
+}
+if($ar){
+$text->Save($ar);
+$saved = 1;
+}else{
+if($saved ne "1"){
+my $types = [
+['Perl Scripts',      '.pl'           ],
+         ['All Files',        '.*',             ],
+ ];
+my $save = $main->getSaveFile(-filetypes=>$types);
+$text->Save($save);
+}
+}
+}
+exit(0);
+}
+
+MainLoop; #The main processing loop
\ No newline at end of file
diff --git a/normal.kpd b/normal.kpd
new file mode 100644
index 0000000..840a797
--- /dev/null
+++ b/normal.kpd
@@ -0,0 +1,3 @@
+::Normal:: # You got the line is parsed by splitting by the ::
+$text->insert('end', "Hi"); # $text, if you look at KAKE PADs code it the text widget
+