Hi Dale,
Please accept my apology for the inconvenience. Below is what I see when I test the URL against the package WWW::Google::URLShortener v0.13.
Show quoted text>>> My system information
manwar@ubuntu:~/$ uname -a
Linux ubuntu 2.6.32-71-generic #138-Ubuntu SMP Thu Dec 18 17:38:32 UTC 2014 i686 GNU/Linux
Show quoted text>>> My perl environment
manwar@ubuntu:~/$ perl -v
This is perl, v5.10.1 (*) built for i486-linux-gnu-thread-multi
Copyright 1987-2009, Larry Wall
Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5 source kit.
Complete documentation for Perl, including FAQ lists, should be found on
this system using "man perl" or "perldoc perl". If you have access to the
Internet, point your browser at
http://www.perl.org/, the Perl Home Page.
Show quoted text>>> My test run
manwar@ubuntu:~/$ perl test-WWW-Google-URLShortener.pl <your_api_key>
Using WWW::Google::URLShortener 0.13
Original URL: [
http://www.millwardb.co.za/Survey/index.php?ap=NjgxfjB%2BMzM2MDg%3D ]
Shorten URL : [
http://goo.gl/GoF6z7 ]
Show quoted text>>> My test script
manwar@ubuntu:~/my-github/t$ cat test-WWW-Google-URLShortener.pl
#!/usr/bin/perl
use strict; use warnings;
use WWW::Google::URLShortener;
my $api_key = $ARGV[0];
my $url = '
http://www.millwardb.co.za/Survey/index.php?ap=NjgxfjB%2BMzM2MDg%3D';
my $google = WWW::Google::URLShortener->new({ api_key => $api_key });
print "Using WWW::Google::URLShortener $WWW::Google::URLShortener::VERSION\n";
print "Original URL: [ $url ]\n";
print "Shorten URL : [ ", $google->shorten_url($url), " ]\n";
manwar@ubuntu:~/$
Please let me know if I missed anything.
Best Regards,
Mohammad S Anwar
