Just FYI, if you're looking for a mature logging system, there's one on CPAN called Log::Log4perl:

    use Log::Log4perl qw(:easy);

    Log::Log4perl->easy_init(
        {level => $DEBUG,
         layout => "%F:%L: %m%n"});

    DEBUG("My Message");
    INFO("Another message");
[download]

This will log the two messages with filename and line number included:

    ./test.pl:15: My Message
    ./test.pl:16: Another message
[download]

And there's of course much, much more, as your requirements grow. If you're interested, check out the details on log4perl.sourceforge.net.

-- saintmike