use Tie::Trace qw( watch ); my $show_banner = 1; watch $show_banner;