#!/usr/bin/perl

use strict;
use warnings;

require "extras.pl";
# (with extras.pl containing:) 
# sub sub1 {
#     print "sub1() from extras\n";
# }
# 1;

sub sub1 {
    print "sub1() from main\n";
}

sub1();   # prints "sub1() from extras"