sub dPrint {
    my ($text, $handle) = @_;

    print $text;
    print $handle $text;
}