Select Code to Download

package StringObject;

...
}

1;

use strict;
use warnings;
...
print $s1, "\n";

exit;