{
    my @verbose;

sub verbose
{
    my $configHR = shift;
    my $info = shift;

    return \@verbose if($info eq 'verbose');

    my $time = scalar localtime();
    $time =~ /(\d\d:\d\d:\d\d)/;
    $time = $1;

    push(@verbose, "\n$time :  [$info]\n");

    if(length($info) > 55)
    {
        $info =~ s/(.{1,50})/$1-]\n\t  [-/;
    }

    return unless($configHR->{VERBOSE});

    print "$time  [$info]\n";
}

}