#------------- script
#!/usr/local/bin/perl -w

use strict;
use Deb;

$main::DEBUG = 1;

my $db = new Deb;
$db->start();
print "done \n";

#----------package

#!/usr/local/bin/perl5

package Deb;

use strict;

sub new {

    my $class = shift;
    my $self = {};

    $self->{DEBUG} = $main::DEBUG || 0;

    bless $self, $class;
    return $self;

}

sub start {
    my $self = shift;

    print "Debugging flag is working\n" if ($self->{DEBUG});
    print "Debugging flag is working\n" if ($main::DEBUG);
}


1;