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

my $program = $0;

$program =~ /([a-z\.]+)$/;
$program = $1;

foreach my $dir ("/usr/bin","/bin") {
  if (-x "$dir/$program") {
    exec("$dir/$program",@ARGV);
  }
}
exit(255);
