Add scm skelton
Add func for perl