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";