1 2 3 4 5 6 7 8 9 10 11
#!/usr/bin/perl use strict; use warnings; exit(0); sub uncalled_subroutine { print '<', join(',', 1 .. 5), ">\n"; }