#!/usr/bin/env perl
use strict;
use warnings;

print "With system ():\n";
system "./inttrap.sh";

print "With exec ():\n";
exec "./inttrap.sh";

##</code><code>##

#!/bin/bash

trap "echo interrupted" 2

for i in {1..5}
do
	sleep 1
	echo Waiting $i ...
done