andrewrjones/signal_test.pl

## signal_test.pl
#!perl

# keep doing something until we catch an INT signal (Ctrl + C)

use strict;
use warnings;

my $running = 1;

$SIG{INT} = sub { $running = 0 };

while($running){
  # ...
}
	#!perl

	# keep doing something until we catch an INT signal (Ctrl + C)

	use strict;
	use warnings;

	my $running = 1;

	$SIG{INT} = sub { $running = 0 };

	while($running){
	# ...
	}