1use 5.008001; 2use strict; 3use warnings; 4 5package Noisy; 6 7sub do_it { 8 warn "I am noisy"; 9} 10 11sub with_newline { 12 warn "No line number\n"; 13} 14 151; 16 17