#!/usr/bin/perl -w
use strict; use warnings;

my($cmd) = 'conf';

foreach (split(/:/,$ENV{'PATH'})) {
   print qq[IN "$_"\n], (`ls ${\quotemeta $_}|grep $cmd`||"[none]\n"),
+ "--\n\n"
}
[download]

--
Tommy Butler, a.k.a. TOMMY

#!/usr/bin/perl -w

use strict;

chomp (my @data=`/usr/platform/\`uname -m\`/sbin/prtdiag`);

foreach my $line (@data) {
  if ($line =~ /Mem/) {
    my @needed_line=(split /\s+/, $line);
    print "Memory = ".$needed_line[2]."\n";
  }
}
[download]