Select Code to Download

#!/usr/bin/perl
use strict;
...
sub debug {
    printf "%s : %s - %s\n", scalar localtime(), (caller(1))[3], shift
+;
}