$ perl cat.pl
Can't use string ("run") as a subroutine ref while "strict refs" in use at cat.pl line 9.