#!/usr/local/bin/perl

chomp(my $binpath=`whence ls 2>/dev/null`);
print $binpath;
