#!/usr/bin/perl
use strict;
my $use_dbi = 1;
eval("use DBI;");
$use_dbi = 0 if (not($@));

print `uname -n`;

print `prtconf |grep Mem` if (`uname` eq 'SunOS');
print `cat /proc/meminfo` if (`uname` eq 'Linux');

if ($use_dbi)
 {
  use DBI;
  print "Hurray!!\n"; 
 }
else
 {
  print "NO DBI\n";
 }