$ perl ./my/script.pl $(which myprogram)

##</code><code>##

  my $full_program = `which $program`;
  chomp $full_program;