my $verbosity = 0;
GetOptions( 'verbose+' => \$verbosity, );

sub report
{
    my $severity = shift;
    print @_ if $severity <= $verbosity;
}

report( 2, "reached ".__FILE__.":".__LINE__."\n" );