#!/usr/bin/perl

use strict;
use warnings;

mainsub();
secsub();
thirdsub();
Frob::fourthsub();

sub mainsub {
    use Data::Dumper;
}

sub secsub {
    my $r = "secsub";
    print Dumper $r;
}

sub thirdsub {
    use Data::Dumper;
    my $r = "thirdsub";
    print Dumper $r;
}

package Frob;

sub fourthsub {
    my $r = "thirdsub";
    print Dumper $r;
}