--- Imgur.pm	2014-12-23 23:12:32.000000000 +0000
+++ Imgur.pm	2016-04-07 14:33:38.958888005 +0100
@@ -30,6 +30,7 @@
 use POSIX qw/setlocale/;
 use Locale::gettext;
 use Glib qw/TRUE FALSE/; 
+use Data::Dumper;
 
 use Shutter::Upload::Shared;
 our @ISA = qw(Shutter::Upload::Shared);
@@ -101,38 +102,34 @@
 
 			my %params = (
 				'image' => [$upload_filename],
-				'key'   => '12ea5e932124142c5ef3c8d5a02557de',
 			);
 
 			my @params = (
-				"http://api.imgur.com/1/upload.json",
+				"https://api.imgur.com/3/upload.json",
 				'Content_Type' => 'multipart/form-data',
-				'Content' => [%params]
+				'Content' => [%params],
 			);
 
 			my $req = HTTP::Request::Common::POST(@params);
+            my $headers = $req->headers;
+            $req->headers->authorization('Client-ID YOUR_CLIENT_ID');
 			my $rsp = $client->request($req);
+			my $respdata= $json->decode( $rsp->content );
+			
+			if(defined $respdata->{'status'} && $respdata->{'status'} eq '200'){
+			
+			$respdata=$respdata->{'data'};
+			
+						
 
-			#~ print Dumper $json->decode( $rsp->content ); 
-
-			$self->{_links} = $json->decode( $rsp->content ); 
-			$self->{_links} = $self->{_links}->{'rsp'};
-			if(defined $self->{_links}->{'stat'} && $self->{_links}->{'stat'} eq 'ok'){
-				$self->{_links} = $self->{_links}->{'image'};
-				#clean hash
-				foreach (keys %{$self->{_links}}){
-					if($_ eq 'delete_hash' || $_ eq 'image_hash'){
-						delete $self->{_links}->{$_};
-						next;
-					}
-					if( $self->{_debug_cparam}) {
-						print $_.": ".$self->{_links}->{$_}, "\n";
-					}
-				}
+			$self->{_links}->{'Image'} = $respdata->{'link'};
+			$self->{_links}->{'Delete url'} = "https://imgur.com/delete/$respdata->{'deletehash'}";
 				#set status (success)
 				$self->{_links}{'status'} = 200;
-			}else{
-				$self->{_links}{'status'} = $self->{_links}->{'image'}->{'error_msg'};
+			}
+			
+			else{
+				$self->{_links}{'status'} = 'error';
 			}
 			
 		};
@@ -141,7 +138,7 @@
 			#~ print "$@\n";
 		}
 
-	#~ }
+#	#~ }
 	
 	#and return links
 	return %{ $self->{_links} };