sub strip { s/\A\s+//, s/\s+\z// for my @r = @_; @r } #### sub strip { s/\A\s+//, s/\s+\z// for my @r = @_; @r } #### for ( 1 .. 3 ) { run_fork { child { # [snip] some stuff ... exit; } } }
## sub strip { s/\A\s+//, s/\s+\z// for my @r = @_; @r } ##
## for ( 1 .. 3 ) { run_fork { child { # [snip] some stuff ... exit; } } }