system("sudo aptitude update");
if ( $? == -1 )
{
  print "sudo aptitude update failed: $!\n";
  exit;
}

system("sudo aptitude install postgresql-server-dev-8.3");
if ( $? == -1 )
{
  print "sudo aptitude install postgresql-server-dev-8.3 failed: $!\n";
  exit;
}

use CPAN;
CPAN::Shell->install("DBI");
CPAN::Shell->install("DBD::Pg");
----------