{
  open my $pipe, '|-', '/usr/bin/open', '-a', 'Preview', '-f' or die "Unable to connecto to Preview: $!\n";
  print $pipe '... some PDF, PS or other image data ...';
  close $pipe or die "Error sending data to Preview: $!\n";
}