use MyTest qw(mysub);

use strict;
use warnings;

my $foo = 'bar';

mysub($foo);