#!/usr/bin/perl

use strict;

use constant USAGE => <<EOU;
USAGE:
$0 (filename|URL|mailto:email\@addre.ss)
EOU

$_ = shift;
my $command = 'openURL(%s, new-tab)';

SWITCH: {
    s!^(www\..+)!http://$1!;
    m!^(ftp|http|file)://! and last;
    s!^mailto:!! and do {
        $command = 'mailto(%s)';
        last;
    };
    -r and do {
        require Cwd;
        $_ = 'file://' . Cwd::abs_path( $_ );
        last;
    };
    print USAGE and exit;
}

system "mozilla", "-remote", sprintf($command, $_);