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