Create Issuer API request for Badgr in Perl

gistfile1.txt

		# Create Request JSON
		my $issuer_json = qq|{
	   "name": "$issuer->{name}",
	 	 "email": "$issuer->{email}",
	 	 "description": "$issuer->{description}",
	 	 "url": "$issuer->{url}"
	 }|;

	  # Format Request
    my $create_issuer_url = $self->{badgr_url}."/v2/issuers";
	  my $header = ['Authorization' => 'Bearer '.$self->{access_token},"Content-Type" => "application/json"];
		my $req = HTTP::Request->new('POST', $create_issuer_url, $header, $issuer);