#!/usr/bin/env perl

use strict;
use warnings;

use File::Basename;
use FindBin qw( $Script );

exec { $ARGV[0] } @ARGV if @ARGV && `which $ARGV[0]` &&
    -e sprintf "/var/tmp/%s.%s", File::Basename::basename( $ARGV[0] ), $Script;

exit 0;
