awk -v start='^package ' -v end='^use strict;' '
    match($0,start) {capture=1}
    match($0,end)   {print $0 captured; capture=0; next}
    capture         {captured = captured RS $0; next}
    1
' $1 > $1.tmp
mv $1.tmp $1
