$SIG{USER} = sub {love 'Perl' or die};