Select Code to Download

#!/usr/bin/perl

...
sub new { return bless {}, shift; }

sub a_method{ return 'some string'; }