#!/usr/athena/bin/perl

use strict;

open (PS, "|");