diff --git a/wipe.pl b/wipe.pl
index f926c88..a07b374 100755
--- a/wipe.pl
+++ b/wipe.pl
@@ -101,11 +101,11 @@ sub getdisks {
 sub wipethemdrives {
 	my $diskid = shift;
 	my $disks = shift;
-	# Write
 	say "$disks->{$diskid}{path} - Serial:$disks->{$diskid}{serial} is being wiped...";
 	my $disksum;
 	my $disksum2;
 	my $spacer = 29;
+	# Write
 	if ($notreally) {
 		$spacer = 18;
 		print "Pretend wipe complete, pretending to check...";
@@ -113,11 +113,12 @@ sub wipethemdrives {
 		$disksum2 = $clobsum;
 	} else {
 		open(my $diskw, ">", $disks->{$diskid}{path}) or return warning("could not open $disks->{$diskid}{path}");
-		print $diskw $clobber;
+		print $diskw $clobber; #Start of Disk
 		seek($diskw,-10240000,2);
-		print $diskw $clobber;
+		print $diskw $clobber; #End of Disk
 		close($diskw);
-		system("sync");
+#######################################
+		system("sync"); #Need to check if this failes and actually fail the disk if it fails.
 		print "Wipe attempt complete, checking...";
 		# Read
 		open(my $diskr, "<", $disks->{$diskid}{path}) or return warning("could not open $disks->{$diskid}{path}");
@@ -149,6 +150,7 @@ sub wipethemdrives {
 		seek($longdiskw,0,2);
 		my $totalBytes = tell($longdiskw);
 		seek($longdiskw,0,0);
+#################################################### Need to double check this math, its not calculating % right
 		for (0..($totalBytes/4096)) {
 			print $longdiskw "\0"x4096;
         		if ( !(tell($longdiskw) % (16*4096)) ) {