Select Code to Download

#!/usr/bin/perl -w
                                                                      
+                           
...
is($mw->text,    'Quit',            text() );
is($mw->command, 'sub { exit }',    text() );