Create main.pl

Created