$sub = sub { exec "perl $0" };
$SIG{INT} = $sub;
$SIG{USR1} = $sub;
$|++;
print (++$counter), sleep 1 while 1

# E:\kod>exec.pl
###>Ctrl+C
# 1234567
# E:\kod>123
###>Ctrl+C
# E:\kod>123
###>Ctrl+C
# E:\kod>123
###>Ctrl+C
# E:\kod>1234567