Select Code to Download

use warnings;
use strict;
...
)->pack() for qw/20 40 60 80 120/;

MainLoop;

[ sub { $w{size} = $_[0] }, $_ ]