Open :

open ($filehandle ,"/usr/bin/which prg|") or die "Error $!\n";
while(<$filehandle>)
{
...
}

Backticks :

my $output = `/usr/bin/which prg`;
chomp $output;