chomp( my $logname = qx{logname} );
my @output = qx{ps -ef | grep $logname};

for my $line ( @output ) {
	if ( $line =~ m{/export/home/$logname/(.+)/bin/} ) {
		print $1, "\n";
	}
}