#!/usr/bin/perl
for (1 .. 10) { print "printing $_\n"; warn "warning $_\n"; }