Create auto.perl