use strict;

$ENV{SHELL} = '/bin/bash';
my $i = `which prog`;
print "$i\n";