deefine: update endpoint and improve wording

1 files changed, 3 insertions, 2 deletions

diff --git a/deefine.pl b/deefine.pl
index 5c9be21..5a0007a 100755
--- a/deefine.pl
+++ b/deefine.pl
@@ -20,14 +20,15 @@ my $WORD = shift or die "Usage: $0 <word>\n";
 
 my $ua = LWP::UserAgent->new;
 $ua->agent("gramos's script for perlweeklychallenge.org");
-my $uri = "https://wordsapiv1.p.mashape.com/words/$WORD";
+my $uri = "https://wordsapiv1.p.rapidapi.com/words/$WORD";
 my @headers = ("X-Mashape-Key", $WORDSAPI_KEY);
 my $response = $ua->request(HTTP::Request->new("GET", $uri, \@headers));
 
 # Check for errors in API request
 if ($response->is_error()) {
     if ($response->code == 404) {
-        die "Word '$WORD' not found\n";
+        printf "Sorry, word '$WORD' not found\n";
+        exit;
     } else {
         die "Unknown error: " . $response->message;
     }