or maybe LINE:

#!/usr/bin/perl

use strict;
use warnings;


print 'at this line - ', __LINE__, ' - D time stopped', $/;
[download]