#!/usr/bin/perl

use strict;
use warnings;
use feature 'say';
use Data::Dumper;

sub main {

    my $args = join ' ', @ARGV;

    warn "## $0 $args";
    say "## $0 $args";

    foreach my $i (1..10) {
        say "stdout $i";
        warn "stderr $i\n";
        sleep 1;
    }

}
main();
