#!/usr/bin/perl -w
use strict;
use WWW::Shorten::Metamark;
die "No URL specified!\n" unless @ARGV;
my $out = makeashorterlink($ARGV[0]) || 'Error';
print "$out\n";

