which.pl

#!/usr/bin/env perl

sub which {
    my $cmd = shift;

    if (eval "require File::Which; 1") {
	return File::Which::which($cmd);
    } else {
	return `which $cmd`;
    }

}


print "pbcopy is available\n" if which("pbcopy");
print "xclip is available\n" if which("xclip");