#!/usr/local/bin/perl

use File::Basename;
 
my $i;
my $c = $#ARGV;
my @args;

$args[0] = '/usr/local/bin/peps.real';

for($i = 0; $i < $c ; ++$i)
{
	push(@args,$ARGV[$i]);
} 

if ( $c >= 0  && -f $ARGV[$c] )
{
	my $b = basename($ARGV[$c]);
	my $d = dirname($ARGV[$c]);
	my $cmd = '';

	for my $s (@args)
	{
	   $cmd .= "\"$s\" ";		
	}
	$cmd .= "\"$b\"";

	my $pwd = `/bin/pwd`;
	chomp($pwd);

	chdir($d);
	print `$cmd`;
	my $ret_val = ($? >> 8);
	chdir($pwd);
	exit($ret_val);
}
else
{
	exec { $args[0] } @args;
}