#!/usr/bin/perl
#
# urlopen v0.0.5 - opens URL in a new tab in the current 
# Mozilla Seamonkey/Firefox/Minefield/Opera(/Google Chrome?) session
# Copyright (C) 2004, 2005, 2010 Stian Skjæveland
#
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
#

use strict;

my $ua="firefox"; # you may set this path to whatever fits your system

if (!($ARGV[0])) {
  &usage();
}

print "$0: now opening $ARGV[0]\n";
system("$ua -remote 'openURL($ARGV[0],new-tab)'");

sub usage() {
  die("Usage: $0 http://<URL>\n");
}