my $debug = CGI::DebugVars->new( -file  => $filename );

##</code><code>##

my $debug = CGI::DebugVars->new( -trace => 1 );

##</code><code>##

use strict;
use warnings;
use CGI::DebugVars;

my $q = CGI->new();
my $write = CGI::DebugVars->new( -file  => 'debug_test.html',
                                 -trace => 1 );

my $test = &sub_one;
&sub_two;

my $foo = 'foo test';
my @bar = qw/ Bilbo Frodo Ovid/;
my $x   = 1;
$write->table( -header    => 1,
               -active    => 1,
               -condition => "$x > 0",
               FOO        => $foo,
               TEST       => $test,
               BAR        => \@bar );

my $sub_three = &sub_three;
$test = &sub_one;
$x++;

$write->table( -header    => 1,
               -active    => 1,
               -condition => "$x > 0",
               X          => $x,
               FOO        => $foo,
               TEST       => $test );
$write->finish;
               
sub sub_one   { "\&sub_one works "};
sub sub_two   { "Someone order a sub?" };
sub sub_three { "This is the third sub" };