perl -e 'system(". .bash_rc; test_shell")'
__END__
TEST on shell function!!!