perl -Mre=eval star.pl