updated skeleton.perl