#!/usr/bin/env perl

use strict;
use Tie::TinyURL;

if($#ARGV != 0) {
    print 'Usage: tinyurlize URL';
} else {


    my %url;
    tie %url, "Tie::TinyURL";

    my $tinyurl = $url{$ARGV[0]};
    my $url = $url{$tinyurl};
    print "$tinyurl -> $url\n";
}