use strict; use warnings; open(SCRIPT, "<", "a.pl");