#!/usr/bin/perl

use strict;
use warnings;

while (1)
{
  sleep(1);
}
__END__
Terminating on signal SIGINT(2)

Process completed with exit code 2