#!/usr/bin/perl

#Get PID of process to monitor
print ("PID: ");
$fd=<>;
print ("$fd\n");

open(FD, "<&=$fd");
@array = <FD>;
close(FD);

print ("@array\n");