Select Code to Download

sub status {
    if( $ENV{DEBUG}) {
...
};

status( "this is name",$self->{name},"\n" );