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