You'll say "You use Moose for this small module as if taking a sledgehammer to crack a nut!" :-) "

RealURL.pm

package RealURL;
use Moose;

has 'shorturi' => ( is => 'rw', );

__PACKAGE__->meta->make_immutable();

no Moose;

use LWP::Simple;
use XML::Simple;


sub expand_uri {
  my $self = shift;

  my $uri_for_api = $self->shorturi;
  $uri_for_api = 'http://realurl.org/api/v1/getrealurl.php?url=' . $uri_for_api;

  my $xml_response = get( $uri_for_api );

  my $xs = XML::Simple->new();
  my $ref = $xs->XMLin( $xml_response );
  my $original_uri = $ref->{url}->{real};

  return $original_uri;
}

1;