#!perl

for (1..5) {
  print STDERR "Error $_\n";
  print STDOUT "Message $_\n";
}