#!/usr/bin/perl
use strict;
use warnings;
use WWW::Mechanize;

# prototypes
sub make_tiny($);

while(<>) {
	print make_tiny($_), "\n";
}

sub make_tiny($) {
    my $url_to_tinyify = shift;
    my $base_url = 'http://is.gd/api.php?longurl=';
    my $encoded_url_to_tinyify = URI::Escape::uri_escape($url_to_tinyify);
    my $tinyurl_api = $base_url . $encoded_url_to_tinyify;
    my $mech = new WWW::Mechanize;
    $mech->get($tinyurl_api);
    return $mech->content();
}