Select Code to Download

#!/usr/bin/perl
my $s = shift;
...
print $s x 1000000;   # write enough to fill up output buffer

# sleep 10;           # or, just sleep