Added description for some scripts

Changed eol for some scripts

acpid.pl

@@ -1,4 +1,5 @@
 #!/usr/bin/perl
+# hibernates laptop if battery discharging and charge is too low
 
 use strict;
 use warnings "all";

copier.pl

@@ -1,4 +1,5 @@
 #!/usr/bin/perl
+# finds and copies .zip to numeric subdirs
 
 use strict;
 use warnings "all";
@@ -11,17 +12,21 @@ my @list;
 my $curdir = 1;
 mkdir ($curdir);
 opendir (DIR, ".");
+
 foreach $file (readdir(DIR)){
-next unless ($file =~ /\.zip$/);
+	next unless ($file =~ /\.zip$/);
+
 	if($counter == 5000){
 		$counter = 1;
 		$curdir = $curdir + 1;
 		mkdir ($curdir);
 	}
+
 	my $nefile = $curdir .'/'.$file;
 	print "$file $nefile\n";
 	move($file, $nefile) or die "$!";
 	$counter = $counter + 1;
 }
+
 closedir (DIR);
 

dns-hit.pl

@@ -1,4 +1,5 @@
 #!/usr/bin/env perl
+# dns shooting utility
 
 use strict;
 use warnings "all";

hdmi_toggle.sh

@@ -1,4 +1,6 @@
 #!/bin/bash
+# ugly udev hook to toggle display configuration
+
 
 # grab the display and xauthority cookie
 export DISPLAY=$(w -h -s | grep ":[0-9]\W" | head -1 | awk '{print $2}')

httpd.pl

@@ -1,4 +1,5 @@
 #!/usr/bin/perl
+# sample incomplete http server application
 
 use strict;
 use warnings "all";