Select Code to Download

#!/usr/bin/perl
use strict;
...
package main;

Foo->new ();

sub new {
    my ($class) = @_;
    my $self = bless {}, $class;
    ...