#!/usr/bin/perl use strict; for (0..10) { print "2: " . $_ . "\n"; sleep(1); } print "exiting\n"; exit;