Select Code to Download

$f->new

#! perl
use strict;
...
}

1;

#! perl
use strict;
...

my $widget = Widget->new('Gromit');
$widget->say_hello();

Gromit says "Hello!"