Select Code to Download

#!/usr/bin/perl
use warnings;
use strict;
...

$mw->after($ARGV[0], [$mw, 'destroy']);
MainLoop;