+ y unknown & t r
p       #!/usr/bin/perl
        echo "#!/usr/bin/perl
              use warnings;
              use strict;

              " >%b


##</code><code>##

+ y unknown & t r
h       #!/usr/bin/perl
        echo "#!/usr/bin/perl
              use warnings;
              use strict;
              use Glib qw/TRUE FALSE/;
              use Gtk2 '-init';

              my \$window = Gtk2::Window->new('toplevel');
              \$window->set_title('Z');
              \$window ->signal_connect( 'destroy' => \\&delete_event );
              \$window->set_border_width(10);
              \$window->set_size_request(300,200);

              my \$vbox = Gtk2::VBox->new( FALSE, 6 );
              \$window->add(\$vbox);
              \$vbox->set_border_width(2);

              my \$hbox= Gtk2::HBox->new( FALSE, 6 );
              \$vbox->pack_end(\$hbox,FALSE,FALSE,0);
              \$hbox->set_border_width(2);

              my \$frame0 = Gtk2::Frame->new('Controls');
              \$vbox->pack_end( \$frame0, FALSE, FALSE, 0 );
              \$frame0->set_border_width(3);

              \$vbox->pack_end (Gtk2::HSeparator->new, FALSE, FALSE, 0);

              my \$hbox0 = Gtk2::HBox->new( FALSE, 6 );
              \$frame0->add(\$hbox0);
              \$hbox0->set_border_width(3);

              my \$button = Gtk2::Button->new_from_stock('gtk-quit');
              \$hbox0->pack_end( \$button, FALSE, FALSE, 0 );
              \$button->signal_connect( clicked => \\&delete_event );

              \$window->show_all();
              Gtk2->main;
              #####################################
              sub delete_event {
                 Gtk2->main_quit;
                 return FALSE;
                 }  " >%b