perl -MO=Deparse -Mre=eval star.pl