my $my_path = $0;

foreach my $path (split(/:/, $ENV{PATH}))
{
     $my_path = "$path/$0" if (-f "$path/$0");
}