Как написать Модуль

[Error202]

Как написать модуль, чтобы он действовал так:

файл:
=====
#!usr/bin/perl
use NewModule;
print "stas";
=====
При запуске прогрпаммы модуль подменял stas на vasya...

Т.е. по аналогии filter::util::Call...
Мне просто нельзя его использовать...