Select Code to Download

sub barf_my_guts_out {
...
        }
}

#!/usr/bin/perl -w 
use strict;
...
my $verbose_debug=1;

barf_my_guts_out() if $verbose_debug;