Perl Test of $SOURCE and $LINENO
================================

.. perl:: "This directive was called from $SOURCE, $LINENO\n";

A paragraph.