Select Code to Download

package Test;
use constant { F1_N => 0, F2_N => 15, F3_N => 30, F4_N => 45, F5_N => 
+60, F6_N => 75, F7_N => 90, F8_N => 105, F9_N => 120, F10_N => 135, }
+;
...
    my $self = shift;
    substr( $$self, F4_N(), F4_L() );
}