diff --git a/CODE_OF_CONDUCT.md b/.github/CODE_OF_CONDUCT.md
similarity index 100%
rename from CODE_OF_CONDUCT.md
rename to .github/CODE_OF_CONDUCT.md
diff --git a/network/dns.pl b/network/dns.pl
index eef7e8e..594c6d9 100755
--- a/network/dns.pl
+++ b/network/dns.pl
@@ -10,22 +10,31 @@
 use Net::DNS;
 use IO::Select;
 
-my $timout = 5;
-my $res     = new Net::DNS::Resolver;
-my $bgsock  = $res -> bgsend ("heitorgouvea.me");
-my $sel     = IO::Select -> new ($bgsock);
-my @ready   = $sel -> can_read ();
-
-if (@ready) {
-	foreach my $sock (@ready) {
-		if ($sock == $bgsock) {
-			my $packet = $res -> bgread ($bgsock);
-
-			$packet -> print;
-	    $bgsock = undef;
-		}
+sub main {
+	my $target = $ARGV[0];
+
+	if ($target) {
+		my $timout = 5;
+		my $res     = new Net::DNS::Resolver;
+		my $bgsock  = $res -> bgsend ($target);
+		my $sel     = IO::Select -> new ($bgsock);
+		my @ready   = $sel -> can_read ();
+
+		if (@ready) {
+			foreach my $sock (@ready) {
+				if ($sock == $bgsock) {
+					my $packet = $res -> bgread ($bgsock);
 
-		$sel -> remove($sock);
-	  $sock = undef;
+					$packet -> print;
+					$bgsock = undef;
+				}
+
+				$sel -> remove($sock);
+				$sock = undef;
+			}
+		}
 	}
 }
+
+main();
+exit;