use strict;
use warnings;

# Trap armed
my $trap
=
"Trapped!";

# Does it work? (Yes, it does.)
print $trap;

##</code><code>##

 Code  Cmts   POD Total File
============================================================
    3     1     4     8 ./test.pl
============================================================
    3     1     4     8 -- Summary of all files