#!/usr/bin/perl
# Filename:	diffsig
# Author:	David Ljung <dave@daveola.com>
# Description:	Lets me pick a different sig if I don't like the
#		one I get (or it isn't appropriate :)
use strict;

##################################################
# Setup the variables
##################################################
my ($PROGNAME,$BASENAME) = ($0,$0);
($MAIN::PROGNAME = $0) =~ s|^.*/||;
$MAIN::BASENAME = $0 =~ m|/| ? $0 : "./$0";
$MAIN::BASENAME =~ s|/[^\/]+$||;
$MAIN::BASENAME=$MAIN::BASENAME ? $MAIN::BASENAME : "/";

# Get the language module
require "$MAIN::BASENAME/sig.pm";

print get_sig($ARGV[0]);