inline perl code comes first