$path = `which perl`;
print $path;
/usr/bin/perl