Create current-user.pl