Help for this page
my $pid = <PIDLIST>;
#! /usr/bin/perl ... # Close files close $pidlist or die $!; print qq{\nDone!\n};