perl -le'@_=1..5;$s+=$_ for@_;print$s'