Select Code to Download

# ./path.pl
Undefined subroutine &dbug::dbug called at ./path.pl line 56.

#!/usr/bin/perl

...
    opendir(my $dh, $dirname) or die "Not a directory";
    return scalar(grep { $_ ne "." && $_ ne ".." } readdir($dh)) == 0;
}

#!/usr/bin/perl
# $Id: dbug.pm $
...
        print LOGGER "$timestamp - [$component] $string";
        close(LOGGER);
}