sub foo
{
  $dbh->begin();
  my $bar = select_some_stuff_from_pgsql($dbh);
  my $ret = system("echo This gets written to stdout");
  insert_some_stuff_into_pgsql($dbh);  
  $dbh->commit();
}