my $logname = `logname`; chomp($logname);
my $output = `ps -ef | grep $logname`;
if ($output =~ /.*\/export\/home\/$logname\/(.*)\/bin\/.*/m){
print "$`\n";
}

##</code><code>##

^.*\/export\/home\/$logname\/(.*)\/bin\/.*$