#!/usr/bin/perl -l

use strict;
use warnings;

$|++;

my $sleep = shift;
print STDERR "Sending data 'a'";
print "a" x 2048000;
print STDERR "Sending data 'a' done";
sleep $sleep;
print STDERR "Sleep done";
print STDERR "Sending data 'b'";
print "b" x 2048000;
print STDERR "Sending data 'b' done";