mycode=$(wget -qO- http://j2l.de/http://www.google.de/)
echo $mycode
firefox $mycode
#!/usr/bin/env perl
use strict;
use warnings;
use LWP::Simple;
my $long_url = "https://www.google.de/search?q=abs+bash";
my $j2l_url = get('http://j2l.de/' . $long_url)
or die "Unable to shorten URL '" . $long_url . "'.";
print "My short URL is $j2l_url\n";