[root@rwsoda203db1 perl_tidb]# cat p.pl
#!/usr/bin/perl
use strict "subs";
use strict;
use v5.16;
use warnings;
use Carp;
$SIG{INT} = sub { die "\nReceive INT signal. \nQuit this perl script.$!\n";};
sleep 300;
[root@rwsoda203db1 perl_tidb]# ./p.pl
^C
Receive INT signal.
Quit this perl script.Interrupted system call