#!/usr/bin/perl -w
use strict;

use Tracer;

my ($options, @parameters) = StandardSetup([], {}, "", @ARGV);

DeepWarn("Bring out the comfy chair!");

sub DeepWarn {
    ShallowWarn($_[0]);
}

sub ShallowWarn {
    Warn($_[0]);
}

1;