#!perl

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