wopen

#!/usr/bin/env perl
use strict;
use warnings;
use Browser::Open qw( open_browser );
use Dancer;

get '/' => sub {
	my $url = param('u');
	my $cmd = open_browser($url);
	return $url;
};

dance;