XChat is.gd use with /shorten <url>

use strict;
use warnings;
use LWP::Simple;
use Xchat ':all';

Xchat::hook_command('shorten', 'get_url');

sub get_url {
    my $url = $_[1][1];
    my $miniurl = get("http://is.gd/create.php?format=simple&url=" . $url);
    my $page = "NIL"; $page = get($url);
    $page =~ /\<title\>(.+?)\<\/title>/;
    if ($1) {
        Xchat::command("SAY $miniurl #{ " . $1 . " }");
   } else {
        Xchat::command("SAY $miniurl");
   }
}