-----------------
prog.pl
-----------------
#!/usr/bin/perl -wT
use strict;

require './lib.pl';

$lib::common{username}="unixhelp";

$lib::common{username}=lib::untaint_username($lib::common{username});