1#!/usr/bin/perl
2
3use strict;
4use warnings;
5use WWW::Shorten 'Googl';
6
7my $url = shift or die "Usage: $0 <url to shorten>";
8print makeashorterlink( $url ) . "\n";
9