#!/usr/bin/perl
use strict;
use warnings;

run();

sub run {
    my $tricky = "in run";

    test_sub();
}

...