it is working when you source the file in your perl script:

    #!/usr/bin/perl -w
    use strict ;
    print "Test main \n" ;
    system( qq{ . test.sh ; testxxx } );
[download]

test already exists in my path, so this is probably another error.