#!/usr/bin/env perl use strict; use warnings; KARL: { nose(); } sub nose {...;} __END__