#!/usr/local/apps/perl/bin/perl
#############################################################################
#                                                                           #
#  WHO:    John L. Moreland                                                 #
#                                                                           #
#  WHAT:   signal                                                           #
#                                                                           #
#  WHY:    Demonstrates signal handling features.                           #
#                                                                           #
#  WHERE:  San Diego Supercomputer Center (SDSC)                            #
#                                                                           #
#  WHEN:   Fri Oct  2 10:22:22 PDT 1998                                     #
#                                                                           #
#  HOW:    PERL                                                             #
#                                                                           #
#############################################################################

sub MySigInt
{
	die "Signal INT caught!";
}

$SIG{INT} = \&MySigInt;

print "Running program...\n";

while(1) {}