Select Code to Download

sub new {
    my $self = shift;
...

    return $app;
}

#!/usr/bin/perl --

package MyApp::RESTful;
...
         };