#!/usr/bin/perl -wT
use strict;

package main;
print Mymod::mysub ();

package Mymod;
sub mysub { '123' }