#!/usr/bin/perl

use strict;
use warnings;

use File::Which qw(which where);

my $path = which('perl');
my @paths = where('perl');