#!/usr/bin/perl

use Win32::Clipboard;
use strict;                             # strict error checking

my $clip = Win32::Clipboard();          # get clipboard object
my $cliptxt = $clip->Get();      # save contents for later

my $url = '';

#$cliptxt =~ s/\s*(.+)\s*/$1/;
#if ($cliptxt =~ m/http:\/\/.+/) {
#	$url = $cliptxt;
#}

use CGI::Untaint;
my %uh = (web_address => $cliptxt);
my $handler = CGI::Untaint->new(%uh);

my $url = $handler->extract(-as_url => 'web_address');

if (!$url) {
	$| = 1;
	print $handler->error;
	sleep(3);
	exit;
}

#	print "URL: ", $cliptxt;
my $cmd = qq{rundll32 url.dll,FileProtocolHandler "$url"};
exec $cmd;