Select Code to Download

package My::Example;

sub new { return bless {}; }

sub GetLinks { # ... }

#!/usr/bin/perl
use warnings;
...

my $example = My::Example->new();
my $links = $example->GetLinks();