use subs qw(print printf);