Help for this page
#!/usr/bin/perl -w ... warn "DEBUG: the read returncode was $returncode\n"; warn "DEBUG: Finished.";