#!/usr/bin/perl

$x=`pidof csh`;
print $x;