$SIG{INT} = \&handler_sub; sub handler_sub { $forced_scalar = shift; die "The signal was $forced_scalar"; @thisarray = ("copy", "thisfile.txt"); if (exec(@thisarray)) { if ($?) { die qq{Error Encountered: $?}; } else { die qq{One File Copied. File Name Is: $thisarray[1]}; } } open(THISFILEHANDLE, "thisfile.cgi |"); open(THISFILEHANDLE, "| thisfile.cgi"); open(THISFILEHANDLE, "thisfile.cgi |"; while () { print; } close(THISFILEHANDLE); open(THISFILEHANDLE, "| thisfile.cgi"; print THISFILEHANDLE "Hey There!"; close(THISFILEHANDLE); $this_value = `this_program 1>&2`; open(THISPIPEHANDLE, "this_program 1>&2 |") or die "Could Not Open Pipe"; while () { print; } if (open(THISCHILDHANDLE, "|-")) { print THISCHILDHANDLE "This is a text message"; close (THISCHILDHANDLE); } if (open(THISCHILDHANDLE, "-|")) { print ; close(THISCHILDHANDLE); } else { print "This is a text message"; exit; } use POSIX "sys_wait_h"; $this_id = waitpid(-1, &WNOHANG);