diff --git a/.ptclirc b/.ptclirc
index fb5b83b..1c8b9fe 100644
--- a/.ptclirc
+++ b/.ptclirc
@@ -2,8 +2,6 @@
 
 # This is just a perl hash.
 
-our %config;
-
 # Default video player
 
 $config{player} = "mpv";
diff --git a/doc/peertube-cli.1 b/doc/peertube-cli.1
new file mode 100644
index 0000000..e69de29
diff --git a/peertube-cli.pl b/peertube-cli.pl
index 81b0883..e114b0e 100755
--- a/peertube-cli.pl
+++ b/peertube-cli.pl
@@ -10,11 +10,16 @@ use Term::ReadLine;
 use Term::ANSIColor;
 use Getopt::Long;
 use Time::Seconds;
+use warnings;
+use strict;
+
+our %config;
 
 # Objects
 
 my $json = new JSON;
 my $ua = new LWP::UserAgent;
+$ua->agent("curl");
 my $term = new Term::ReadLine("ptcli");
 my $time = new Time::Seconds;
 
@@ -62,6 +67,9 @@ if (!$ARGV[0]) {
 	my @selected_video_data;
 	while($uuid == -1) {
 		$response = search_video(join("",@ARGV), $counter);
+		if($response == -1) {
+			print colored['bold red'], "ERROR\n";
+		}
 		my $json_obj = $json->decode($response);
 		$uuid = &select_video($json_obj);
 		@selected_video_data = get_video_data($uuid);
@@ -78,8 +86,7 @@ sub search_video($$) {
 	if ($response->{_rc} == 200) {
 		return $response->content;
 	} else {
-		print color('red');
-		return sprintf("ERROR: server returned status code $response->{_rc}\n");
+		return $response->{_rc};
 	}
 }