use warnings; use strict; sub a { "unchanged" }; sub print_a { print a(), "\n" };