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