#!/usr/bin/perl
use strict;

my $debug=1;
if ($debug > 0) { use warnings; print "Using warnings\n"; }

run_sub();
sub run_sub { print "Running\n"; }
sub run_sub { print "Ran\n"; }