# noname.pl:

use warnings;
use strict;
use lib '.';
use noname1;

print noname1::get_value();

# noname1.pm:

package noname1;

sub get_value {
    return $missingVar // 'Bogus value';
}

1;