Select Code to Download

package Cool;
use strict;
...
    }
}
"That's cool man";

#!/usr/bin/perl
use strict;
...
my $obj = Cool->new( qw(foo bar baz) );
$obj->bar = "A better way of doing this";
print $obj->bar, "\n";