#!/usr/bin/perl
# file pid.pl
sleep 1; print "$0 PID: $$\n";