#!/usr/bin/env perl

#---------------------------------------------------------------------
#                            module setup
#---------------------------------------------------------------------

require 5.6.1;
use strict;
use Carp;
use warnings;
                                # Trap warnings
$SIG {__WARN__} = sub { die @_; };

#---------------------------------------------------------------------
#                           basic constants
#---------------------------------------------------------------------

use constant ZERO  => 0;        # Zero
use constant ONE   => 1;        # One

use constant FALSE => 0;        # Boolean FALSE
use constant TRUE  => 1;        # Boolean TRUE

#---------------------------------------------------------------------
#                            main routine
#---------------------------------------------------------------------

sub Main
{
    my $PID;

    if (scalar (@ARGV) && (($PID = fork) != ZERO))
    {
        @ARGV = ( '--pid', $PID, '--limit', 15, '--lazy' );
        exec '/usr/pkg/bin/cpulimit', @ARGV;
    }
    else
    {
        exec '/usr/pkg/bin/pnmleoscale', @ARGV;
    }

    undef;
}

#---------------------------------------------------------------------
#                            main program
#---------------------------------------------------------------------

&Main();                        # Call the main routine
exit ZERO;                      # Normal exit