$arg1 = "Derp";
 open IN, '<', $filename;
         my @contents = <IN>;
         close IN;
         @contents = grep !"$arg1", @contents;
         open OUT, '>', $filename;
         my @new = grep(s/\s*$//g, @contents);
         print OUT @new;
         close OUT;
             $fh->send("Server \"$arg1\" Removed Successfully! " . $ip. "\n");